@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的！谢
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求批处理转变为VBS。
查看 837 回复 8
楼 主
求批处理转变为VBS。
发表于 2007-07-11 19:38 · 中国 浙江 宁波 电信
批处理总是会弹个黑框很不爽，希望高手能帮我把这段批处理转变成VBS的！谢
第 2 楼
发表于 2007-07-11 20:47 · 中国 北京 中国中信股份有限公司
虽然算不上什么高手，但是也知道有几种方法，这里给出比较简单的一种，仅供参考：
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 "执行完毕！"
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| heicai | +2 | 2007-07-11 20:59 |
第 3 楼
发表于 2007-07-11 21:00 · 中国 浙江 宁波 电信
感谢楼上的热心帮助，发现1.txt里未写入程序所在路径。不知为何
第 4 楼
发表于 2007-07-11 21:18 · 中国 北京 中国中信股份有限公司
如果只要路径的话可以把倒数第四行的itmeFile.Name 替换为:
itemFile.Drive & itemFile.Path
itemFile.Drive & itemFile.Path
第 5 楼
发表于 2007-07-11 21:24 · 中国 浙江 宁波 电信
Originally posted by 3742668 at 2007-7-11 09:18 PM:
如果只要路径的话可以把倒数第四行的itmeFile.Name 替换为:
itemFile.Drive & itemFile.Path
提示语法错误。。。。很郁闷
第 6 楼
发表于 2007-07-11 21:33 · 中国 北京 中国中信股份有限公司
自己多学学基础的东西吧。
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 楼
发表于 2007-07-11 21:53 · 中国 浙江 宁波 电信
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 楼
发表于 2007-07-11 22:21 · 中国 北京 中国中信股份有限公司
另外我试了下你的代码，发现无法处理中文目录。:(
请举例说明。
第 9 楼
发表于 2007-07-11 23:10 · 中国 浙江 宁波 电信
如amped.exe处在D:\热血英豪
这时1.TXT内就无任何信息
这时1.TXT内就无任何信息
论坛跳转: