Office TANAKA - その他のテクニック[lnkファイルのリンク先を取得する]lnkファイルを作成するのはWSHを使えば簡単にできます。たとえば次のコードは、テスクトップに「メモ帳(notepad.exe)」へのショートカットを「メモ帳.lnk」という名前で作成します。 Sub Sample1() Dim WSH, LnkFile, DeskTopPath As String, LnkFileName As String Set WSH = CreateObject("WScript.Shell") DeskTopPath = WSH.SpecialFolders("Desktop") LnkFileName = DeskTopPath & "\メモ帳.lnk" Set LnkFile = WSH.CreateShortcut(LnkFileName) LnkFile.TargetPath = "%SystemRoot%\System32\notepad.exe"
