[问题求助] 帮忙改下这个判断盘符的VBS代码

juelianfy

@echo off&color a
:start
vol E:
if %errorlevel% equ 1 ping -n 5 127.0.0.1&goto start
if %errorlevel% equ 0 ping -n 5 127.0.0.1&start D:\a.txt
复制代码

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

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
if CreateObject("Scripting.FileSystemObject").DriveExists("E") then 
CreateObject("WScript.Shell").run("d:\a.txt")
else
end if
Set Wsh=NoThing
WScript.quit
复制代码

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

czjt1234

Dim objWsh, objFSO
Set objWsh = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Do
    If objFSO.DriveExists("E:") Then 
        objWsh.run("d:\a.txt")
        WScript.Quit
    End if
    WScript.Sleep 5000
Loop
复制代码