怎么得到一个快捷方式的目标文件?

Question

也就是怎么得到一个快捷方式的目标文件?或在XP怎么不能执行快捷方式呢?

Answer 1

搜索（VB）  关键字：快捷方式  
http://community.csdn.net/Expert/TopicView.asp?id=3156956

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Shell GetTargetPath("C:\Documents and Settings\bafony\桌面\RealOne.lnk")
End SubFunction GetTargetPath(ByVal FileName As String)Dim Obj As Object
Set Obj = CreateObject("WScript.Shell")Dim Shortcut As Object
Set Shortcut = Obj.CreateShortcut(FileName)
GetTargetPath = Shortcut.TargetPath
Shortcut.SaveEnd Function