[已解决]VBS如何定时检测指定文件的大小，不在范围内就终止指定的进程？

xgda · 发表于 2013-8-2 10:44:03

本帖最后由 xgda 于 2013-8-3 10:33 编辑

求一VBS代码，每隔5分钟检查一指定文档（E:\Program\test.db）的大小
如果此文档（E:\Program\test.db）大于2500KB 则本次检测结束，等待5分钟后再次检测
如果此文档（E:\Program\test.db）小于2500KB 则立即终止一指定进程（test.exe）,并用（C:\AAAA\test.db）替换，等待5分钟后再次检测

注：test.db都不存在等于2500KB的可能，（C:\AAAA\test.db)一定大于2500KB，运行过程中不能出现黑框

xgda · 发表于 2013-8-2 10:51:52

上的夜班，可能无法及时回复，先谢谢了

batman · 发表于 2013-8-2 13:49:15

本帖最后由 batman 于 2013-8-2 13:52 编辑

Dim Path, cgPath, FileSize
Path = "E:\Program"
cgPath = "C:\AAAA"
Do
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
FileSize = Int(objFSO.GetFile(Path & "test.db").Size / 1024)
If FileSize < 2500 Then
CreateObject("Wscript.Shell").Run "cmd /ctaskkill /f /im test.exe", False, True
objFSO.CopyFile cgPath & "test.db" Path, True
End If
Set objFSO = Nothing
WScript.Sleep 5 * 60 * 1000
Loop

复制代码

xgda · 发表于 2013-8-2 17:45:02

谢谢版主回复，电脑在公司，晚上上班去测试

xgda · 发表于 2013-8-2 17:48:25

如果在最前边加上ON ERROR RESUME NEXT
是不是还能一直循环下去？

xgda · 发表于 2013-8-3 10:26:05

batman 发表于 2013-8-2 13:49

不知为何，提示出错了

自己笨，改成了

目前正常使用

多谢版主

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]VBS如何定时检测指定文件的大小，不在范围内就终止指定的进程？

评分

浏览过的版块