ショートカットのリンク先を調べたいのですが、うまくいきません。

質問

過去ログなどで調べたのですが、うまくいかないのでご教授ください。
エクセルのVBAでショートカットのリンク先を下記コードで調べたのですが、TargetPathを取得できません。
OSはWindows2000、エクセルはOffice2000です。
WSHのバージョンを調べようとしたのですが、わかりませんでした。
よろしくお願いします。
-----------------------------------------------------
Sub sample2()
Dim WSHShell As Object, objSc As Object
Set WSHShell = CreateObject("WScript.Shell")
Set objSc = WSHShell.CreateShortcut("c:\data.lnk")
With objSc
MsgBox .FullName
MsgBox .TargetPath
End With
Set WSHShell = Nothing
End Sub

回答No.1

xls88 · ベストアンサー

Set objSc = WSHShell.CreateShortcut("c:\data.lnk")
で
c:\data.lnk
は、まちがいないでしょうか？

お礼

xls88さん、早速ご回答ありがとうございました。
ご指摘のとおり、ショートカットの指定に誤りがあり、名前を修正したら動作しました。