当前位置:首页 » 程序代码 » 正文

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

 

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/174.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号