TracePrint 获取快捷方式指向地址("C:\Users\Public\Desktop\gameupdater.exe.lnk")
Function 获取快捷方式指向地址(地址)
Set wshShell = CreateObject("WScript.Shell")
Set wshLink = wshShell.CreateShortcut(地址)
获取快捷方式指向地址 = wshLink.TargetPath
Set wshShell = nothing
Set wshLink = nothing
End Function
Function 获取快捷方式指向地址(地址)
Set wshShell = CreateObject("WScript.Shell")
Set wshLink = wshShell.CreateShortcut(地址)
获取快捷方式指向地址 = wshLink.TargetPath
Set wshShell = nothing
Set wshLink = nothing
End Function
