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