Dim wsh,fso,fol,firsize,lotsize
Set wsh=CreateObject("wscript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fol=fso.GetFolder("d:\0001")
firsize=fol.Size
wsh.Run "d:\0001\a.exe"
WScript.Sleep "你要等待的秒数(毫秒)"
lotsize=fol.Size
If firsize=lotsize Then
wsh.Run "%ComSpec% /c ntsd -c q -pn a.exe"
End If作者: apprilia 时间: 2007-9-4 14:21
Quote:
Originally posted by qinbuer at 2007-9-4 02:07 AM:
来个简单的VBS:
Dim wsh,fso,fol,firsize,lotsize
Set wsh=CreateObject("wscript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fol=fso.GetFolder("d: ...