查找电脑中，所有的bat文件，并复制到当前目录？
这个查找的p，我会写，可是电脑中有很多bat文件，在不同的目录，而且有可能有重名的现象，如何在不改变原名的情况下，复制到当前目录。如果，有同名的情况下，应该如何避免，或有什么好的方法解决呢？
这个查找的p，我会写，可是电脑中有很多bat文件，在不同的目录，而且有可能有重名的现象，如何在不改变原名的情况下，复制到当前目录。如果，有同名的情况下，应该如何避免，或有什么好的方法解决呢？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 查找电脑中，所有的bat文件，并复制到当前目录？
查看 1,772 回复 12
楼 主
查找电脑中，所有的bat文件，并复制到当前目录？
发表于 2007-02-18 23:45 · 中国 吉林 四平 联通
第 2 楼
发表于 2007-02-19 00:59 · 中国 辽宁 本溪 联通
而且有可能有重名的现象，如何在不改变原名的情况下，复制到当前目录。
好像不可以...
应该如何避免,只能等高人啦~
好像不可以...
应该如何避免,只能等高人啦~
第 3 楼
发表于 2007-02-19 02:32 · 中国 浙江 台州 温岭市 电信
难啊，期待高人
第 4 楼
发表于 2007-02-19 03:55 · 中国 江苏 连云港 电信
这个肯定两行命令以内搞不定啊。判断同名文件，然后……就够麻烦的了。我知道用管理规范命令行可以搞定，但怎么判断重名，怎么做，不会啊。
我相信总有一天，总会遇到一个人可以相濡以沫、相吻以湿！
第 5 楼
发表于 2007-02-19 06:26 · 中国 吉林 四平 联通
vbs如果能搞定的话，也可以的
是呀，主要是判断同名的文件，不好办，一方面要拷贝，还要加上判断。
还有一个问题是，如果遍历磁盘文件的话，当前的目录，也会被遍历到，哪结果就是复制重复自身了吧？
是呀，主要是判断同名的文件，不好办，一方面要拷贝，还要加上判断。
还有一个问题是，如果遍历磁盘文件的话，当前的目录，也会被遍历到，哪结果就是复制重复自身了吧？
第 6 楼
发表于 2007-02-19 12:03 · 中国 北京 中国中信股份有限公司
Dim oShell,oFolder,oFile,sFolder,sExtension
sFolder = "d:\d" '目标目录
sExtension = "bat" '扩展名
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(sFolder) 'oShell.NameSpace(.)可获得当前目录
For Each oFile In GetObject("winmgmts:").ExecQuery( _
"Select * from CIM_DataFile Where Extension='" & sExtension & "'")
oFolder.CopyHere oFile.Name,8 '自动改名的关键在于8
Next
Set oFolder = Nothing
Set oShell = Nothing
其实不论用bat还是vbs都并非很复杂，只需要先保存所有需要拷贝的文件名然后分别处理就行了。
出于效率以及简洁方面的原因，使用了vbs来构建脚本。如果不存在sFolder指定的目录可能出错。
另：若存在相同文件名，则会在新拷贝的文件名前加上”复件“字样。
本帖最近评分记录
（共 2 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| electronixtar | +8 | 2007-02-19 12:09 |
| anqing | +8 | 2007-02-19 12:18 |
第 7 楼
发表于 2007-02-19 12:09 · 中国 四川 成都 电信
oFolder.CopyHere oFile.Name,8 '自动改名的关键在于8
这个思路好啊，调用explorer自动更名！顶！学习！
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 8 楼
发表于 2007-02-19 12:17 · 中国 吉林 四平 联通
太好了。谢谢。
Shell.Application
("winmgmts:").ExecQuery
不太明白？？
Shell.Application
("winmgmts:").ExecQuery
不太明白？？
第 9 楼
发表于 2007-02-19 14:19 · 中国 浙江 温州 电信
dir 目标目录|find 文件名||复制文件
试试
试试
第 10 楼
一句话便可
发表于 2007-02-19 16:02 · 新西兰 奥克兰大区 奥克兰 Microsoft
Originally posted by oilio at 2007-2-18 02:55 PM:
这个肯定两行命令以内搞不定啊。判断同名文件，然后……就够麻烦的了。我知道用管理规范命令行可以搞定，但怎么判断重名，怎么做，不会啊。
for /f "tokens=*" %%i in ('for /d %%j in ^(C:\* D:\*^) do dir /b/s/a %%~sj^|findstr /i /c:".bat"') do echo Y|xcopy "%%i" bat文件\%%~ni\%%~zi\可用时间 大小 等设为文件夹名称来分开相同文件
[ Last edited by PPdos on 2007-2-19 at 03:35 AM ]
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
第 11 楼
温故而知新
发表于 2007-02-19 17:16 · 新西兰 奥克兰大区 奥克兰 Microsoft
for /f "tokens=*" %%i in ('for /d %%j in ^(C:\* D:\*^) do dir /b/s/a %%~sj^|findstr /i /c:".jpg"') do %%~si
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
第 12 楼
发表于 2007-02-19 22:46 · 中国 吉林 四平 联通
谢谢10的朋友可是运行你的代码，老显示分析错误！
第 13 楼
发表于 2007-02-19 22:48 · 中国 吉林 四平 联通
这种技巧学习了。
论坛跳转: