
CODE: [Copy to clipboard]其实不论用bat还是vbs都并非很复杂,只需要先保存所有需要拷贝的文件名然后分别处理就行了。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
| Quote: | |
|
| Quote: | |
|
CODE: [Copy to clipboard]可用时间 大小 等设为文件夹名称来分开相同文件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\
CODE: [Copy to clipboard]for /f "tokens=*" %%i in ('for /d %%j in ^(C:\* D:\*^) do dir /b/s/a %%~sj^|findstr /i /c:".jpg"') do %%~si
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |