77七

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut("D:\桌面\Desktop\关机.lnk")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("#.txt", True)
MyFile.WriteLine(oWshShortcut.TargetPath)
MyFile.Close
复制代码

现学现卖...