[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
lomey

Rank: 2

帖子
9 
积分
177 
技术
0  
捐助
0  
注册时间
2008-9-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-9-16 22:38 | 只看该作者

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

本帖最后由 lomey 于 2015-10-17 11:46 编辑 
  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

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-9-16 23:50 | 只看该作者 
  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
复制代码

TOP

lomey

Rank: 2

帖子
9 
积分
177 
技术
0  
捐助
0  
注册时间
2008-9-3 
3楼
发表于 2015-9-17 12:20 | 只看该作者
回复 2# pcl_test

貌似不生效啊

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-9-17 12:31 | 只看该作者
回复 3# lomey

While fso.FileExists(File1)  = False

TOP

lomey

Rank: 2

帖子
9 
积分
177 
技术
0  
捐助
0  
注册时间
2008-9-3 
5楼
发表于 2015-9-23 17:43 | 只看该作者
回复 4# pcl_test


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

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
6楼
发表于 2015-9-23 20:15 | 只看该作者
回复 5# lomey
网盘共享你的两个批处理文件，发分享链接出来

TOP

czjt1234

Rank: 5Rank: 5

帖子
926 
积分
1386 
技术
100  
捐助
0  
注册时间
2010-4-30 
7楼
发表于 2015-10-10 11:41 | 只看该作者 
  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
复制代码

QQ 20147578

TOP

lomey

Rank: 2

帖子
9 
积分
177 
技术
0  
捐助
0  
注册时间
2008-9-3 
8楼
发表于 2015-10-11 01:04 | 只看该作者
回复 7# czjt1234

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

TOP

lomey

Rank: 2

帖子
9 
积分
177 
技术
0  
捐助
0  
注册时间
2008-9-3 
9楼
发表于 2015-10-16 23:19 | 只看该作者
回复 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
复制代码
这样可以实现我的要求，不知是否还有改善之处？

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
10楼
发表于 2015-10-16 23:35 | 只看该作者
本帖最后由 pcl_test 于 2015-10-16 23:38 编辑

回复 9# lomey

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

TOP

返回列表