Question

文件夹的文件名里含有时间变量，如何用dos命令实现复制文件夹里的文件操作？

如题，我现在用1个文件的命令来演示一下：
copy P：\1\2011100112\d02\* P:\2
如例所例举，2011100112这个文件夹随时间变化，逐日增加一个文件夹，我现在要把P：\1\yyyymmddhh\d02\下所有文件拷贝到P:\2 下，请问用dos命令是什么处理方法？能否给出示范样本？
P：\1\2011100112\里除了d02文件夹还有d03文件夹，时间子文件夹里还有子目录，我要把d02文件夹的所有文件复制到2文件夹里，所以其实我的批量是这样的，请问要怎么做？
copy P：\1\2011100112\d02\* P:\2

copy P：\1\2011100212\d02\* P:\2

copy P：\1\2011100312\d02\* P:\2

copy P：\1\2011100412\d02\* P:\2
copy P：\1\2011100512\d02\* P:\2
……

Answer 1

'如果 \1\下面的文件夹全是以日期命名的话，可以用如下代码完成

'否则，可以添加对子文件夹名称的判断，符合条件后才复制

‘用法：将代码保存为扩展名为.vbs 的文件，双击即可。

Dim srcFolder,dstFolder
Dim objFSO
Dim objSrcFolder,objDstFolder
Dim objSubSrcFolders

srcFolder =   "c:\1\"
dstFolder =   "c:\2\"

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objSrcFolder = objFso.GetFolder(srcFolder)
Set objDstFolder = objFso.GetFolder(dstFolder)

For Each objSubSrcFolders In objSrcFolder.SubFolders
    If objFSO.FolderExists(srcFolder & objSubSrcFolders.Name & "\d02") Then
    objFSO.CopyFile srcFolder & objSubSrcFolders.Name & "\d02\*.*", dstFolder, true
    End If
Next

MsgBox "文件夹复制完成",32,"Alert"

追问

P：\1\2011100112\里除了d02文件夹还有d03文件夹，时间子文件夹里还有子目录，所以其实我的批量是这样的：
copy P：\1\2011100112\d02\* P:\2
copy P：\1\2011100212\d02\* P:\2
copy P：\1\2011100312\d02\* P:\2
copy P：\1\2011100412\d02\* P:\2
……
请问您的可以实现么

追答

可以呀，上面程序里已经指定了只拷贝时间子文件夹里 d02 子目录中的文件，不会复制 d03，你试试就知道了。根据你的情况，将里面的 C:\，改为 P:\ 即可。

追问

不行，会提示这一句objFSO.CopyFile srcFolder & objSubSrcFolders.Name & "\d02\*.*", dstFolder, true 文件未找到

追答

那是因为有些 d02 中没有文件所致，添加一个判断即可，修改后的代码如下：

Dim srcFolder,dstFolder,srcSubFolder
Dim objFSO
Dim objSrcFolder,objDstFolder
Dim objSubSrcFolders

srcFolder =   "c:\1\"
dstFolder =   "c:\2\"

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objSrcFolder = objFso.GetFolder(srcFolder)
Set objDstFolder = objFso.GetFolder(dstFolder)

For Each objSubSrcFolders In objSrcFolder.SubFolders
    srcSubFolder = srcFolder & objSubSrcFolders.Name & "\d02"
    Set objSubSrcFolderD02 = objFso.GetFolder(srcSubFolder)
    If objFSO.FolderExists(srcSubFolder) and objSubSrcFolderD02.Size<>0 then
    objFSO.CopyFile srcSubFolder & "\*.*", dstFolder, true
    End If
Next

MsgBox "文件夹复制完成",32,"Alert"

Answer 2

所举的例子并不能把源处的文件夹也复制到目标处,估计实际需要把文件夹也复制,有专门这种用途的命令详见命令行输入 xcopy/? 根据用途选参数比如:
xcopy /s/y p:\1 p:\2
如果加参数也不能适合需要,则需要结合for命令了,请详述要求

追问

详细问题我已经补充，P：\1\2011100112\里除了d02文件夹还有d03文件夹，时间子文件夹里还有子目录，列出前几项：copy P：\1\2011100112\d02\* P:\2copy P：\1\2011100212\d02\* P:\2copy P：\1\2011100312\d02\* P:\2copy P：\1\2011100412\d02\* P:\2……

追答

仍不明确，只要d02还是所有子文件夹都要？而且我感觉是需要复制文件夹的，不然不同时期的文件复制到一块？那也可能同名哦

追问

我只要d02文件夹里的文件，这里面有两个文件，其实这里面两个文件的命名已经用时间区分开，不存在同名问题。其实我就是要把每个时间文件夹下子目录d02里的两个文件拷出来，放到2这个文件夹里。

追答

好的，请写到bat批处理执行：

@echo off
cd/d "p:\1"
for /L %%i in (2011100312,1,2011120312)do if exist %%i\d02 (
   echo %%i
   copy %%i\d02\* p:\02\)
pause

那行for ...中括号内表示起值,增量和终值,我是随意写的,可根据实际需要改,如果是那一级的文件夹全都要复制的可把那行改为:

for /d %%i in (*) do (

追问

非常感谢！您的答案也是对的，而且很迅捷！但由于另一位朋友他比较早，所以实在不好意思！不知道如何能把财富值也给您，非常感谢，抱歉！

追答

分无所谓，能帮得上或回答得到肯定我就满意了

追问

非常感激！以后有批处理的难题我就直接向您请教，希望您能不吝赐教！