czjt1234

回复 27# yyz219


   16楼已经说得很清楚了
要么用ps，要嫌ps慢就得vbs

czjt1234

s = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
s = InputBox("【右键】粘贴.lnk路径", , s)
Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
MsgBox oWshShortcut.TargetPath
复制代码

czjt1234

回复 32# yyz219


  

s = "D:\桌面\Desktop\关机.lnk"
f = "#.txt"

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
s = oWshShortcut.TargetPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 2, True)
oTextStream.Write s
oTextStream.Close()
复制代码