请教VBS代码查找并运行其中一条命令

lomey

1. Dim Counter,msg,fso,WshShell
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set WshShell = WScript.CreateObject("WScript.Shell")
   
4. File = "D:\开机命令\Run.bat"
   
5. While fso.FileExists(File)  = False
   
6. 
   
7. WScript.Sleep 1000
   
8. Wend
   
9. Return = WshShell.Run("cmd.exe /C"&File, 0 )

复制代码

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

pcl_test

1. Dim Counter,msg,fso,WshShell
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set WshShell = WScript.CreateObject("WScript.Shell")
   
4. File1 = "D:\开机命令\Run.bat"
   
5. File2 = "Z:\开机命令\Run.bat"
   
6. While fso.FileExists(File)  = False
   
7. WScript.Sleep 1000
   
8. Wend
   
9. WshShell.Run "cmd.exe /C"&File1,0
   
10. 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

1. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
2. Set oWS = CreateObject("WScript.Shell")
   
3. File1 = "D:\开机命令\Run.bat"
   
4. File2 = "Z:\开机命令\Run.bat"
   
5. If oFSO.FileExists(file1) = True Then oWS.Run File1, 0
   
6. If oFSO.FileExists(file2) = True Then oWS.Run File2, 0

复制代码

lomey

回复 7# czjt1234

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

lomey

回复 7# czjt1234

1. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
2. Set oWS = CreateObject("WScript.Shell")
   
3. File1 = "c:\1.bat"
   
4. File2 = "d:\2.bat"
   
5. While (1)
   
6. If oFSO.FileExists(file1) = True Then
   
7. oWS.Run File1, 0
   
8. Wscript.Quit
   
9. End If
   
10. If oFSO.FileExists(file2) = True Then
    
11. oWS.Run File2, 0
    
12. Wscript.Quit
    
13. End If
    
14. WScript.Sleep 1000
    
15. Wend

复制代码

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

pcl_test

回复 9# lomey

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