[问题求助] 复制文件完整路径的VBS怎样延时运行指定程序？9解决）

我来了

把这个  

复制文件完整路径的.vbs

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

行尾巴处：加上一条，延迟5秒钟，
加上一条，运行c:\test.exe

weichenxiehou

......
WScript.Sleep 5000
wsShell.Run("C:\test.exe",0,true)
set wsShell=nothing    '将上面这一句删掉
复制代码