On Error Resume Next
Dim timediff,exepath
timediff=5000
exepath="a.txt"
Set WshShell=createobject("Wscript.Shell")
while true
call WshShell.Run(exepath ,1,True)
' call WshShell.Run(exepath,vbhide,True)
WScript.sleep timediff*1000
wend
Set WshShell=Nothing
上面写的是延时5秒的啊 可是一打开就直接运行了```
是代码中有错误吗?