2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 選択された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コマンドの文字列比較はまともに使えない。 »