エクスプローラの「お気に入りリンク」からアプリを起動すると、2回、重複して起動される。(障害)
「お気に入りリンク」に「メモ帳」のショートカットを入れて、エクスプローラの「お気に入りリンク」から起動すると、「メモ帳」が二つ開きます。
なので、エクスプローラの「お気に入りリンク」は昔のエクスプローラの「リンクバー」代わりには使えません。
しかし、スクリプトで重複起動を抑止すれば、昔のエクスプローラの「リンクバー」代わりに使えるようになります。
先頭の4行を追加します。
GetCurrentShell.vbs
On Error Resume Next
Set Lock=CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.ScriptFullName & ":Zone.Identifier",8,True)
If Err Then WScript.Quit
On Error GoTo 0
Set wShell=CreateObject("WScript.Shell")
wShell.SendKeys "^{tab}"
For Each ie In CreateObject("Shell.Application").Windows()
If InStr(LCase(ie.FullName),"explorer.exe") Then
wShell.SendKeys "^{tab}"
If ie.StatusText="" Then Exit For
End If
Next
If IsEmpty(ie) Then
MsgBox "Not Found"
Else
MsgBox ie.LocationURL
End If
「お気に入りリンク」に入れて、エクスプローラの「お気に入りリンク」から起動します。
« Vista以降で、アクティブなシェルを捕捉する。(その2) | トップページ | スクリプトでクリップボードからテキストを取り出す。 »