何老师的济亨网
五笔打字通主页
当前位置：首页 » 程序代码 » 正文
-
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打赏
支付宝打赏
微信打赏
来源：济亨网
本文链接：https://wb98.com/post/174.html
-
湘公网安备 43011102000514号