批处理之家 - Powered by Discuz! Board

标题: [问题求助] 帮忙改下这个判断盘符的VBS代码 [打印本页]

作者: juelianfy 时间: 2012-11-30 16:37 标题: 帮忙改下这个判断盘符的VBS代码

@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 时间: 2012-12-1 07:34

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
复制代码

欢迎光临批处理之家 (http://bathome.net./)