[问题求助] 请教VBS代码查找并运行其中一条命令

lomey

Dim Counter,msg,fso,WshShell
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
File = "D:\开机命令\Run.bat"
While fso.FileExists(File)  = False

WScript.Sleep 1000
Wend
Return = WshShell.Run("cmd.exe /C"&File, 0 )
复制代码

如何修改以上代码，查找D盘与Z盘,D与Z盘符不同时存在，运行以下两条命令其中一条即可。
D:\开机命令\Run.bat
Z:\开机命令\Run.bat

pcl_test

Dim Counter,msg,fso,WshShell
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
File1 = "D:\开机命令\Run.bat"
File2 = "Z:\开机命令\Run.bat"
While fso.FileExists(File)  = False
WScript.Sleep 1000
Wend
WshShell.Run "cmd.exe /C"&File1,0
WshShell.Run "cmd.exe /C"&File2,0
复制代码

lomey

回复 2# pcl_test

貌似不生效啊

pcl_test

回复 3# lomey

While fso.FileExists(File1)  = False

lomey

回复 4# pcl_test


    这样只会运行 file1 ,file2没有运行

pcl_test

回复 5# lomey
网盘共享你的两个批处理文件，发分享链接出来

czjt1234

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWS = CreateObject("WScript.Shell")
File1 = "D:\开机命令\Run.bat"
File2 = "Z:\开机命令\Run.bat"
If oFSO.FileExists(file1) = True Then oWS.Run File1, 0
If oFSO.FileExists(file2) = True Then oWS.Run File2, 0
复制代码

lomey

回复 7# czjt1234

你好，加上循环判断，等待其中file1或file2执行成功则退出，如何修改呢?

lomey

回复 7# czjt1234

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWS = CreateObject("WScript.Shell")
File1 = "c:\1.bat"
File2 = "d:\2.bat"
While (1)
If oFSO.FileExists(file1) = True Then 
oWS.Run File1, 0
Wscript.Quit
End If
If oFSO.FileExists(file2) = True Then 
oWS.Run File2, 0
Wscript.Quit
End If
WScript.Sleep 1000
Wend
复制代码

这样可以实现我的要求，不知是否还有改善之处？

pcl_test

回复 9# lomey

这样如何叫“同时运行两条命令”？要求变了，把标题也改下吧