原先那个错了
-
- if wscript.arguments.count=0 then
- wscript.echo "请将文件拖放到本脚本上!"
- wscript.quit
- end if
- dim fso,f
- set fso = wscript.createobject("scripting.filesystemobject")
- Set f = fso.GetFile(WScript.Arguments(0))
- Set wsShell = CreateObject("WScript.Shell")
- wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& f&Chr(34)& ")(close)",0,True
- set f = nothing
- set fso = nothing
- set wsshell = nothing
复制代码
|