エクスプローラの「お気に入りリンク」からアプリを起動すると、２回、重複して起動される。(障害)

「お気に入りリンク」に「メモ帳」のショートカットを入れて、エクスプローラの「お気に入りリンク」から起動すると、「メモ帳」が二つ開きます。

なので、エクスプローラの「お気に入りリンク」は昔のエクスプローラの「リンクバー」代わりには使えません。

しかし、スクリプトで重複起動を抑止すれば、昔のエクスプローラの「リンクバー」代わりに使えるようになります。

先頭の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

「お気に入りリンク」に入れて、エクスプローラの「お気に入りリンク」から起動します。