帮忙改下这个判断盘符的VBS代码

juelianfy

1. @echo off&color a
   
2. :start
   
3. vol E:
   
4. if %errorlevel% equ 1 ping -n 5 127.0.0.1&goto start
   
5. if %errorlevel% equ 0 ping -n 5 127.0.0.1&start D:\a.txt

复制代码

检查E盘是否存在，如果不就返回再检查，如果存在了，就PING 5次，执行D盘a.txt，   一定要写上如果E盘不存在就要返回去再检查。     将这个批处理转换成VBS如下
-------------------------------------------------------------------------------------------------------------------------------------------------------

1. Dim Wsh
   
2. Set Wsh = WScript.CreateObject("WScript.Shell")
   
3. WScript.Sleep(2000)
   
4. if CreateObject("Scripting.FileSystemObject").DriveExists("E") then
   
5. CreateObject("WScript.Shell").run("d:\a.txt")
   
6. else
   
7. end if
   
8. Set Wsh=NoThing
   
9. WScript.quit

复制代码

上面的批处理改写成这样了，如果E盘不存在我想让它再从头来一次！else 后怎么写？？ 前面肯定还有要改动的！  反正就是直到E盘出现后方退出VBS

czjt1234

1. Dim objWsh, objFSO
   
2. Set objWsh = CreateObject("WScript.Shell")
   
3. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
4. Do
   
5.     If objFSO.DriveExists("E:") Then
   
6.         objWsh.run("d:\a.txt")
   
7.         WScript.Quit
   
8.     End if
   
9.     WScript.Sleep 5000
   
10. Loop

复制代码