VB编程：VB获取快捷方式对应的目标路径。

VB编程：VB获取快捷方式对应的目标路径。

比如，我们想获取桌面上腾讯QQ快捷方式对应的路径，也就是想知道QQ运行程序的安装位置。

我们先做一个函数，专门用于取得一个程序的快捷方式对应的路径名。函数代码如下：

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
下面我们在窗体的load事件中取得QQ的安装路径：

Private Sub Form_Load()
MsgBox GetTargetPath(“C:\Users\Administrator\Desktop\qq.lnk”) '这个是快捷方式所在的路径
End Sub