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