来个简单点的~ xp下面和其他操作系统不同 网上关于执行快捷方式方法很多 包括上面我给出的几个连接 xp下面都运行不过下面的 winxp sp1 +vb6sp6通过测试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
http://community.csdn.net/Expert/TopicView.asp?id=3156956
http://community.csdn.net/Expert/topic/2949/2949080.xml?temp=.1713678
http://community.csdn.net/Expert/TopicView.asp?id=3153929
xp下面和其他操作系统不同 网上关于执行快捷方式方法很多 包括上面我给出的几个连接
xp下面都运行不过下面的 winxp sp1 +vb6sp6通过测试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