2017年9月
          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コマンドの文字列比較はまともに使えない。 »