批处理之家 - Powered by Discuz! Board

标题: [问题求助] 请教VBS代码查找并运行其中一条命令 [打印本页]

作者: lomey 时间: 2015-9-16 22:38 标题: 请教VBS代码查找并运行其中一条命令

本帖最后由 lomey 于 2015-10-17 11:46 编辑

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 时间: 2015-9-16 23:50

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 时间: 2015-9-17 12:20

回复 2# pcl_test

貌似不生效啊

作者: pcl_test 时间: 2015-9-17 12:31

回复 3# lomey

While fso.FileExists(File1) = False

作者: lomey 时间: 2015-9-23 17:43

回复 4# pcl_test

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

作者: pcl_test 时间: 2015-9-23 20:15

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

作者: czjt1234 时间: 2015-10-10 11:41

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 时间: 2015-10-11 01:04

回复 7# czjt1234

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

作者: lomey 时间: 2015-10-16 23:19

回复 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 时间: 2015-10-16 23:35

本帖最后由 pcl_test 于 2015-10-16 23:38 编辑

回复 9# lomey

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

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