VB如何读取快捷方式的目标路径

一般情况下，在VB中读取快捷方式的信息，大家首先考虑的是使用IShellLink接口，但这种方法需要下载或定义一个TLB文件，相对来说比较麻烦。

其实我们都知道可以使用WScript.Shell对象的CreateShortcut方法创建一个新的快捷方式，却不知道如果该快捷方式已经存在，则CreateShortcut方法将读取而不是创建快捷方式，为此，我写了一个只有两行代码的通用函数供大家参考：

Option Explicit Sub Main() MsgBox ReadShortCut("d:/我的快捷方式.lnk") End Sub Function ReadShortCut(ByVal strFile As String) As String If Len(Dir(strFile)) = 0 Or Right(strFile,4) <> ".lnk" Then Exit Function ReadShortCut = CreateObject("WScript.Shell").CreateShortcut(strFile).TargetPath End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!