ショートカットのリンク先フォルダを開く

WSH

今日もWSH。ショートカット先のフォルダを開きたいとかってありますが、普通にやると、

  1. 対象のショートカット上で右クリック
  2. コンテキストメニューのプロパティを選択
  3. 表示されたフォームのショートカットタブを選択*1し、「リンク先を探す」ボタンをクリック

とまぁ、こんな手順になる訳ですが、↓のソースを適当な名前で拡張子「vbs」で保存して、
そのvbsをSendToフォルダに置いとけば、

  1. ショートカット上で右クリック
  2. コンテキストメニューの送る→vbsを選択

でショートカットのリンク先フォルダが開く。ちょっと簡単になる。

ソース

Dim strExName, strPath
Dim arg

If WScript.Arguments.Count > 0 Then
	For Each arg In WScript.Arguments
		strExName = CreateObject("Scripting.FileSystemObject").GetExtensionName(arg)
		If UCase(strExName) = "LNK" Then
			strPath = CreateObject("WScript.Shell").CreateShortCut(arg).TargetPath
			strPath = Left(strPath, InStrRev(strPath, "\") - 1)
			CreateObject("Shell.Application").Open strPath
		End If
	Next
End If
ついでに

よければこいつも。
自Bookのフォルダを開くExcelアドイン

*1:デフォルトで選択されてるけどｗ