« 選択されたurlをリンクに変えるブックマークレット | トップページ | ifコマンドの文字列比較はまともに使えない。 »

2012年5月 4日 (金)

GetIconLocationを代替する。

スクリプトからではGetIconLocationが使えません。その代替法です。

Option Explicit
Dim fso
Dim Shell
Dim Path
Dim FolderItem
Dim Link

Set fso=CreateObject("Scripting.FileSystemObject")
Set Shell=CreateObject("Shell.Application")
For Each Path In WScript.Arguments
  Set FolderItem=Shell.NameSpace(fso.GetParentFolderName(Path)).ParseName(fso.GetFileName(Path))
  Set Link=FolderItem.GetLink
  WScript.Echo FolderItem.ExtendedProperty("{5CBF2787-48CF-4208-B90E-EE5E5D420294},10"),FolderItem.ExtendedProperty("{5CBF2787-48CF-4208-B90E-EE5E5D420294},9")
Next

« 選択されたurlをリンクに変えるブックマークレット | トップページ | ifコマンドの文字列比較はまともに使えない。 »