CSDN博客

img yinweihong

GetLnkTargetPath

发表于2004/9/25 18:54:00  941人阅读

Function GetTargetPath(ByVal LinkName As String)
    On Local Error Resume Next
    Dim Obj As Object
    Set Obj = CreateObject("WScript.Shell")

    Dim Shortcut As Object
    Set Shortcut = Obj.CreateShortcut(LinkName)
    GetTargetPath = Shortcut.TargetPath
    Shortcut.Save

End Function

阅读全文
0 0

相关文章推荐

img
取 消
img