[已解决]VBS下如何终止循环中得调用bat

ydfan8888

最近头都忙大了，为了一个判定磁盘容量大小并调用bat删除的脚本。具体脚本如下，能够实现判定F盘的可用磁盘容量，且能够自行删除，但是现在的问题是，do循环里面的调用bat脚本停不下来，一直在运行。如要如何修改此vbs脚本。

1. Set objWMIService = GetObject("winmgmts:")
   
2. Set objLogicalDisk = objWMIService.get("Win32_LogicalDisk.DeviceID='f:'")
   
3. 
   
4. Dim a
   
5. Dim s
   
6. Dim m
   
7. Dim c
   
8. Dim w
   
9. 
   
10. c = now
    
11. s = objLogicaldisk.Size/(1024*1024*1024)
    
12. s = round(s,2)
    
13. ' WScript.Echo "全部磁盘:"&s& " G "
    
14. m = objLogicalDisk.FreeSpace/(1024*1024*1024)
    
15. m = round(m,2)
    
16. ' WScript.Echo "剩余空间:"&m& " G "
    
17. a = m/s
    
18. a = round(a,2)
    
19. 
    
20. Do Until a > 0.6
    
21. Set shell = WScript.CreateObject("WScript.Shell")
    
22. shell.Run"f:\2.bat",0
    
23. Loop
    
24. 
    
25. w = (FormatPercent(a,2))
    
26. ' WScript.Echo " 磁盘剩余空间= "&w
    
27. 
    
28. call mail()

复制代码

find

1. Do Until a > 0.6
   
2. Set shell = WScript.CreateObject("WScript.Shell")
   
3. shell.Run"f:\2.bat",0
   
4. Loop
   

复制代码

这里为什么不改变a的值让它退出循环？

ydfan8888

这里为什么不改变a的值让它退出循环？
find 发表于 2012-3-24 14:45

Do Until a > 0.6
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run"f:\2.bat",0
s = objLogicaldisk.Size/(1024*1024*1024)
s = round(s,2)
m = objLogicalDisk.FreeSpace/(1024*1024*1024)
m = round(m,2)
a = m/s
a = round(a,2)
Loop

改变了执行也一样的！ 在一直的调用。如何做到。>=0.6时就自动退出循环

find

回复 3# ydfan8888


在Loop上面加一句，输出变量a的值，观察一下。

ydfan8888

回复  ydfan8888


在Loop上面加一句，输出变量a的值，观察一下。
find 发表于 2012-3-24 17:03

    如何修改呢？

find

回复 5# ydfan8888

1. WScript.Echo a

复制代码

ydfan8888

回复  ydfan8888
find 发表于 2012-3-26 12:55

    谢谢 问题解决了

find

回复 7# ydfan8888


问题解决后，请编辑顶楼帖子在标题前面注明[已解决]，并给回答者加分。