一般情况下，在VB中读取快捷方式的信息，大家首先考虑的是使用IShellLink接口，但这种方法需要下载或定义一个TLB文件，相对来说比较麻烦。
其实我们都知道可以使用WScript.Shell对象的CreateShortcut方法创建一个新的快捷方式，却不知道如果该快捷方式已经存在，则CreateShortcut方法将读取而不是创建快捷方式，为此，我写了一个只有两行代码的通用函数供大家参考：
Option Explicit Sub Main() Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> 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
