如何获取同目录下的快捷方式的可执行文件的目的路径？

[jack20042005]

如用来登陆上网的“快捷方式 本地连接”的目的路径
不是一般的有后缀的文件，这类情况怎么做呢？

[一笑拔剑]

普通快捷方式容易阿

这个是系统快捷方式不一样哦

不太了解

帮定

[一笑拔剑]

其实这样的快捷方式没有目标程序

你怎么获得他的程序　他不是一个标准的exe

[jack20042005]

就是它指向的目的程序地址啊
对了 好像“快捷方式 本地连接”这个快捷方式比较特别

那就以Winamp的快捷方式为例吧 目标在右键的属性中有

[一笑拔剑]

那就容易了
Function GetTargetPath(ByVal LinkName As String)
On Local Error Resume Next
Dim Obj As Object
Set Obj = CreateObject("Wscript.Shell")
Dim Shortcut As Object
Set Shortcut = Obj.CreateShortcut(LinkName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save
End Function

Private Sub Form_Load()
Dim a As String
a = GetTargetPath("c:\example.lnk")
MsgBox a
End Sub

[jack20042005]

好 谢谢 不过现在不能试 而且分不多了 所以暂时不结帖了

[一笑拔剑]

没问题

能用结帖就行

[jack20042005]

测试通过 ^_^