一般情况下,在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
摘自:网络整理