- 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
复制代码 现学现卖... |