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    
無料ブログはココログ

« IE9の履歴の在処(その2)満杯チェックとその対処 | トップページ | バッチファイルでLTrim()する。 »

2011年6月24日 (金)

NTFSストリーム内のfaviconを指定する。

インターネットショートカットにfavicon指定がある場合は通常、NTFSストリーム内にfaviconが格納されています。

iconfile=http://server/favicon.ico
iconindex=1

NTFSストリーム内のfaviconを指定すれば、化けないかも。

iconfile=c:\folder\title.url:favicon
iconindex=0

以下の favicon.vbs にインターネットショートカットをドロップします。

Option Explicit
Dim fso
Dim Path
Dim Link

Set fso=CreateObject("Scripting.FileSystemObject")
Path=fso.GetAbsolutePathName(WScript.Arguments(0))
If fso.FileExists(Path & ":favicon") Then
  Set Link=CreateObject("Shell.Application").NameSpace(fso.GetParentFolderName(Path)).ParseName(fso.GetFileName(Path)).GetLink
  Call Link.SetIconLocation(Path & ":favicon",0)
  Link.Save Path
Else
WScript.Echo "stream:faviconがありません。"
End If

« IE9の履歴の在処(その2)満杯チェックとその対処 | トップページ | バッチファイルでLTrim()する。 »