中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-25 14:37

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,274 会员排行

DOS批处理 & 脚本技术（批处理室） » 求批处理转变为VBS。

可打印版本　953 / 8

第1楼　heicai	发表于 2007-07-11 19:38
中级用户　发帖 156　积分 385
求批处理转变为VBS。 @echo off for %%a in (c d e f g h i) do ( if exist %%a:\nul 2>nul ( for /f "tokens=*" %%b in ('dir /s/b/a %%a:\amped.exe') do echo %%~dpb>C:\1.txt )) ::del %0 批处理总是会弹个黑框很不爽，希望高手能帮我把这段批处理转变成VBS的！谢

第2楼　3742668	发表于 2007-07-11 20:47
荣誉版主　发帖 718　积分 2,013
虽然算不上什么高手，但是也知道有几种方法，这里给出比较简单的一种，仅供参考： sFile = "c:\1.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(sFile,2,True) sWQL = "Select * From CIM_DataFile Where " & _ "FileName = 'amped' And Extension = 'exe'" For Each itemFile In GetObject("Winmgmts:").ExecQuery(sWQL) oFile.WriteLine itemFile.name Next oFile.Close MsgBox "执行完毕！"

第3楼　heicai	发表于 2007-07-11 21:00
中级用户　发帖 156　积分 385
感谢楼上的热心帮助，发现1.txt里未写入程序所在路径。不知为何

第4楼　3742668	发表于 2007-07-11 21:18
荣誉版主　发帖 718　积分 2,013
如果只要路径的话可以把倒数第四行的itmeFile.Name 替换为: itemFile.Drive & itemFile.Path

第5楼　heicai	发表于 2007-07-11 21:24
中级用户　发帖 156　积分 385
Originally posted by 3742668 at 2007-7-11 09:18 PM: 如果只要路径的话可以把倒数第四行的itmeFile.Name 替换为: itemFile.Drive & itemFile.Path 提示语法错误。。。。很郁闷

第6楼　3742668	发表于 2007-07-11 21:33
荣誉版主　发帖 718　积分 2,013
自己多学学基础的东西吧。 sFile = "c:\1.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(sFile,2,True) sWQL = "Select * From CIM_DataFile Where " & _ "FileName = 'amped' And Extension = 'exe'" For Each itemFile In GetObject("Winmgmts:").ExecQuery(sWQL) oFile.WriteLine itemFile.Drive & itemFile.Path Next oFile.Close MsgBox "执行完毕！"

第7楼　heicai	发表于 2007-07-11 21:53
中级用户　发帖 156　积分 385
Originally posted by 3742668 at 2007-7-11 09:33 PM: 自己多学学基础的东西吧。 sFile = "c:\1.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(sFile,2,True) sWQ ... 我觉得VBS没批处理容易入门。哎另外我试了下你的代码，发现无法处理中文目录。:(

第8楼　3742668	发表于 2007-07-11 22:21
荣誉版主　发帖 718　积分 2,013
另外我试了下你的代码，发现无法处理中文目录。:( 请举例说明。

第9楼　heicai	发表于 2007-07-11 23:10
中级用户　发帖 156　积分 385
如amped.exe处在D:\热血英豪这时1.TXT内就无任何信息

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023