戻る

ショートカットファイルのリンク先を取得する方法 (Windows Scripting Host を利用)
動作環境 Windows98 開発環境 Visual Basic 6.0 (+SP3)
説明 ショートカットファイルのリンク先のファイルパスを取得します。
用意するもの：標準フォーム(Form1),コマンドボタン(Command1)
Private Sub Command1_Click()

Dim myWshell As Object
Dim myShortCut As Object

Set myWshell = CreateObject("Wscript.Shell")
Set myShortCut = myWshell.CreateShortcut("ここにショートカットファイルのフルパスを指定")

MsgBox myShortCut.TargetPath

Set myShortCut = Nothing
Set myWshell = Nothing

End Sub