GetLnkTargetPath
来源：互联网 发布：斗牛seo 编辑：程序博客网 时间：2024/06/01 12:20
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
