中国DOS联盟

假定有一个目录AAA，里面有许多子目录a1、a2、a3……，每个子目录里都有N个名字
相同但内容不同的文件，比如a1.txt、a2.txt、a3.txt，现在我想对AAA目录进行备份，
备份目录可任意给定（比如BBB），但要求AAA里面的子目录结构不变，而且只要备份每个子目录里的
a1.txt、a2.txt、a3.txt文件
AAA
|---a1
| |-----XXXX
| |-----XXXX
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a2
| |-----XXXX
| |-----XXXX
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a3
| |-----XXXX
| |-----XXXX
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a4
|-----XXXX
|-----XXXX
|-----a1.txt
|-----a2.txt
|-----a3.txt
备份后的结构如下：
BBB
|---a1
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a2
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a3
| |-----a1.txt
| |-----a2.txt
| |-----a3.txt
|
|---a4
|-----a1.txt
|-----a2.txt
|-----a3.txt

请各位高手帮个忙，帮忙做个批处理文件。先谢谢大家了。

如果单纯进行备份建议使用压缩备份Winrar或Pkzip
@echo off
start /wait WinRAR u -ep1 -r BBB AAA\*.TXT

或者
@echo off
Pkzip -a -p -r BBB AAA\*.TXT

补充另外一种目录结构
@echo off
start /wait WinRAR u -es1 -r BBB AAA\*.TXT

或者
@echo off
Pkzip -a -P -r BBB AAA\*.TXT

2楼和3楼压缩命令参数都要注意大小写

　　经过测试后可行的代码如下，此批处理可以放在任意位置：

@echo off

setlocal enabledelayedexpansion

cd /d "AAA的路径"

xcopy /i /s /t %cd% "BBB的路径"

for /r %%i in (.) do (

    set cur_root=%%~dfi

    set "new_root=!cur_root:AAA的路径=BBB的路径!"

    xcopy /y "!cur_root!\a1.txt" "!new_root!"

    xcopy /y "!cur_root!\a2.txt" "!new_root!"

    xcopy /y "!cur_root!\a3.txt" "!new_root!"

)

explorer "BBB的路径"

pause

Last edited by namejm on 2006-8-14 at 19:57 ]

苦恼啊，楼上的兄弟，你的方法满足不了我的要求，麻烦你再辛苦一下！

　　忘了说了，这段代码要放在目录AAA下执行。你再试一下看行不行。

压缩备份方式不好吗？xcopy 应该没那么复杂
@echo off
xcopy /e /h /r /y .\aaa\*.txt .\bbb\
或者
@echo off
FOR %%A IN (a1 a2 a3) DO xcopy /e /h /r /y .\aaa\%%A.txt .\bbb\

Originally posted by namejm at 2006-8-14 17:55:
　　试试下面的代码，可能会有用(未经测试，有问题请反馈，但不至于破坏原始数据)：

@echo off

setlocal enabledelayedexpansion

for /r %%i in (.) do (

    ... 

『第 6 楼』:  



　　忘了说了，这段代码要放在目录AAA下执行。你再试一下看行不行。



老兄或者老弟，不行。显示“分析错误”

Last edited by jtyuer on 2006-8-14 at 19:19 ]

Originally posted by fastslz at 2006-8-14 18:39:
压缩备份方式不好吗？xcopy 应该没那么复杂
@echo off
xcopy /e /h /r /y .\aaa\*.txt .\bbb\
或者
@echo off
FOR %%A IN (a1 a2 a3) DO xcopy /e /h /r /y .\aaa\%%A.txt .\bbb\

根据提示，适当修改，已完成。
谢谢各位老大，谢谢！

Originally posted by fastslz at 2006-8-14 18:39:
压缩备份方式不好吗？xcopy 应该没那么复杂
@echo off
xcopy /e /h /r /y .\aaa\*.txt .\bbb\
或者
@echo off
FOR %%A IN (a1 a2 a3) DO xcopy /e /h /r /y .\aaa\%%A.txt .\bbb\

　　如果要用xcopy的话，不会那么简单的，因为楼主要求复制的是每个子目录中的a1.txt、a2.txt和a3.txt这三个文件，并且要求bbb的目录可以任意指定。观察兄这两段代码，第一段代码只是把所有的txt文件都复制到与aaa文件夹的同一目录的bbb文件夹下，而第二段虽然只复制了那三个文件，但是只能复制到同一目录下的bbb文件夹下，这两段代码共同的缺憾就是不能任意指定bbb文件夹的位置。

　　修改后的代码在4楼，原来的代码没有经过测试，导致有些笔误和疏漏。请楼主再测试一下。

Originally posted by namejm at 2006-8-14 20:04:


　　如果要用xcopy的话，不会那么简单的，因为楼主要求复制的是每个子目录中的a1.txt、a2.txt和a3.txt这三个文件，并且要求bbb的目录可以任意指定。 ...

按照老大给的方法试验了一下，不理想，在BBB目录中拷贝了所需要的文件的同时，也把AAA里面的其它孙目录（子目录的子目录。不知这样称呼对不对？）搬到BBB目录中了

自己鼓捣了一整天，终于做出了一个，还成，基本满足了我的要求，贴出来老大帮我分析一下，看看还能不能简练些？主要是自己做WindowsXP OEM 20合一的盘用，以前光靠手动提取、拷贝文件让人心烦，而且容易出错

我自己瞎鼓捣的东东：
@Echo Off
Set TT=WindowsXP OEM文件提取复制工具
COLOR 1F
TITLE %TT%

:start
CLS
Echo.
Echo ╭══════════════════╮
Echo ║ ║
Echo ╭═══┤ WindowsXP OEM文件提取复制工具 ├═══╮
Echo ║ ║ ║ ║
Echo ║ ╰══════════════════╯ ║
Echo ║ ║
Echo ║ 您是要从光盘或硬盘中提取OEM文件呢？ ║
Echo ║ 还是想拷贝现有的OEM文件到硬盘中？ ║
Echo ║ ║
Echo ║ 从光盘或硬盘中提取OEM文件 ║
Echo ║ 拷贝现有的OEM文件到硬盘中 ║
Echo ║ 从光盘或硬盘中提取OEM图标 ║
Echo ║ 拷贝现有的OEM图标到硬盘中 ║
Echo ║ 退出 ║
Echo ║ ║
Echo ╟──────────────────────────╢
Echo ║ 注：1. 根据提示自行输入光盘或硬盘文件目录的绝对路径║
Echo ║ 2. 文件所在路径不允许有空格。 ║
Echo ╟══════════════════════════╢
Echo ║ 版权所有：jtyuer 供网友们交流研究，翻版不究 ║
Echo ╰──────────────────────────╯
Echo.
Set Choice=
Set /P Choice= 请选择要进行的操作（1/2/3/4/Q），然后按回车：

If Not '%Choice%'=='' SET Choice=%Choice:~0,1%
If /I '%Choice%'=='1' GOTO funa
If /I '%Choice%'=='2' GOTO funa
If /I '%Choice%'=='3' GOTO funa
If /I '%Choice%'=='4' GOTO funa
If /I '%Choice%'=='Q' EXIT
Goto start

:funa
If /I '%Choice%'=='1' (
TITLE %TT% - 从光盘或硬盘中提取OEM文件
)
If /I '%Choice%'=='2' (
TITLE %TT% - 拷贝现有的OEM文件到硬盘中
Goto funb
)
If /I '%Choice%'=='3' (
TITLE %TT% - 拷贝现有的OEM图标到硬盘中
Goto func
)
If /I '%Choice%'=='4' (
TITLE %TT% - 拷贝现有的OEM图标到硬盘中
Goto fund
)
If "%Err%"=="" (
CLS
)

:funa1
cls
Echo 请输入OEM文件所在的目录名，如c:\1234
Echo.
Echo 输入路径时不包括i386子目录路径
echo.
Set input=
Set /P input= 输入路径：
If "%input%"=="" Goto funa
If Not Exist %input% (
Set Err=1
Echo.
CLS
Echo 您所输入的OEM文件目录路径不正确，请重新输入
Echo.
Goto :funa1
)

::funa2
cls
Echo 请输入保存OEM文件的目录名，如d:\1234
echo.
Set output=
Set /P output= 输入路径：
If "%input%"=="" Goto funa1
If Not Exist %output% (
Set Err=1
Echo.
CLS
Echo 保存OEM文件的目录%output%不存在，自动建立%output%目录
Echo.
Echo.
Echo.
@md %output%
)

:Copy
@Echo dpcdll.dl_>%temp%\oem.txt
@Echo oembios.bi_>>%temp%\oem.txt
@Echo oembios.ca_>>%temp%\oem.txt
@Echo oembios.da_>>%temp%\oem.txt
@Echo oembios.si_>>%temp%\oem.txt
@Echo pidgen.dll>>%temp%\oem.txt
@Echo setupp.ini>>%temp%\oem.txt
@Echo winnt.sif>>%temp%\oem.txt
for /f %%a in ('dir /ad /b %input%') do md %output%\%%a\i386 & FOR /f %%b in (%temp%\oem.txt) do copy /y %input%\%%a\i386\%%b %output%\%%a\i386\
Goto Exit

:funb
cls
Echo 请输入OEM文件所在的目录名，如c:\1234
Echo.
Echo 输入路径时不包括i386子目录路径
echo.
Set input=
Set /P input= 输入路径：
If "%input%"=="" Goto funb
If Not Exist %input% (
Set Err=1
Echo.
CLS
Echo 您所输入的OEM文件目录路径不正确，请重新输入
Echo.
Goto funb
)

:funb1
cls
Echo 请输入要拷贝OEM文件的目录名，如d:\1234
echo.
Set output=
Set /P output= 输入路径：
If "%input%"=="" Goto funb1
If Not Exist %output% (
Set Err=1
Echo.
CLS
Echo 保存OEM文件的目录%output%不存在，自动建立%output%目录
Echo.
Echo.
@md %output%
)

:Copy
For /f %%m In ('dir /ad /b %input%') do md %output%\%%m\i386 & Copy /y %input%\%%m\i386\*.* %output%\%%m\i386\
Goto Exit

:func
cls
Echo 请输入OEM图标所在的目录名，如c:\1234
Echo.
Set input=
Set /P input= 输入路径：
If "%input%"=="" Goto func
If Not Exist %input% (
Set Err=1
Echo.
CLS
Echo 您所输入的OEM图标目录路径不正确，请重新输入
Echo.
Goto func
)

:func1
cls
Echo 请输入要拷贝OEM图标的目录名，如d:\1234
echo.
Set output=
Set /P output= 输入路径：
If "%input%"=="" Goto funb1
If Not Exist %output% (
Set Err=1
Echo.
CLS
Echo 保存OEM图标的目录%output%不存在，自动建立%output%目录
Echo.
Echo.
@md %output%
)

:Copy
If Exist %temp%\ml.txt Del %temp%\ml.txt
If Exist %temp%\oem.txt Del %temp%\oem.txt
@Echo oeminfo.ini>%temp%\oem.txt
@Echo oemlogo.bmp>>%temp%\oem.txt
for /f %%a in ('dir /ad /b %input%') do md %output%\%%a\$OEM$\$$\SYSTEM32 & FOR /f %%b in (%temp%\oem.txt) do copy /y %input%\%%a\$OEM$\$$\SYSTEM32\%%b %output%\%%a\$OEM$\$$\SYSTEM32\
Goto Exit



:fund
cls
Echo 请输入OEM图标所在的目录名，如c:\1234
Echo.
Set input=
Set /P input= 输入路径：
If "%input%"=="" Goto fund
If Not Exist %input% (
Set Err=1
Echo.
CLS
Echo 您所输入的OEM图标所在的目录路径不正确，请重新输入
Echo.
Goto fund
)

:fund1
cls
Echo 请输入要拷贝OEM图标的目录名，如d:\1234
echo.
Set output=
Set /P output= 输入路径：
If "%input%"=="" Goto fund1
If Not Exist %output% (
Set Err=1
Echo.
CLS
Echo 保存OEM文件的目录%output%不存在，自动建立%output%目录
Echo.
@md %output%
)

:Copy
For /f %%m In ('dir /ad /b %input%') do md %output%\%%m\$OEM$\$$\SYSTEM32 & Copy /y %input%\%%m\$OEM$\$$\SYSTEM32\*.* %output%\%%m\$OEM$\$$\SYSTEM32\
Goto Exit

:Exit
CLS
Echo.
Echo ╭══════════════════╮
Echo ║ ║
Echo ╭═══┤ WindowsXP OEM文件提取复制工具 ├═══╮
Echo ║ ║ ║ ║
Echo ║ ╰══════════════════╯ ║
Echo ║ ║
Echo ║ 您需要的操作已经完成，请核查. . . ║
Echo ║ 感谢您的使用！ ║
Echo ║ 你还准备继续拷贝文件吗？ ║
Echo ║ ║
Echo ║ ║
Echo ║ 继续拷贝文件 ║
Echo ║ ║
Echo ║ 退出 ║
Echo ║ ║
Echo ╟──────────────────────────╢
Echo ║ 注：1. 根据提示自行输入光盘或硬盘文件目录的绝对路径║
Echo ║ 2. 文件所在路径不允许有空格。 ║
Echo ╟══════════════════════════╢
Echo ║ 版权所有：jtyuer 供网友们交流研究，翻版不究 ║
Echo ╰──────────────────────────╯
Echo.
Set Choice=
Set /P Choice= 请选择要进行的操作（y/n），然后按回车：

If Not '%Choice%'=='' SET Choice=%Choice:~0,1%
If /I '%Choice%'=='y' GOTO start
If /I '%Choice%'=='n' GOTO end
Goto Exit

:End

Originally posted by jtyuer at 2006-8-14 21:06:


按照老大给的方法试验了一下，不理想，在BBB目录中拷贝了所需要的文件的同时，也把AAA里面的其它孙目录（子目录的子目录。不知这样称呼对不对？）搬到BBB目录中了

　　看了你在顶楼的帖子，你AAA目录下的子目录只有一层啊，你也没有说子目录下还有子目录的，汗一个先。请把AAA的完整目录结构、你想要的目录和文件帖出来再说吧，再没弄明白你准确的需求前，没有谁的代码是对的。

Re jtyuer『第 11 楼』:

　　你这段代码确实有可再精简的地方，并且还有几处错误。现略举一二：

　　1、“文件所在路径不允许有空格。”其实没必要如此苛刻，路径也可以带空格的，只要把路径用引号括起来就行了；

　　2、If Not '%Choice%'=='' SET Choice=%Choice:~0,1%一句中，if语句多余，只保留set语句就可以了；

　　3、If /I '%Choice%'=='1' GOTO funa一句中，/I 没必要，而在If /I '%Choice%'=='Q' EXIT中应该保留，具体原因，你多想两次就明白了；

　　4、:funa段中，If "%Err%"=="" 语句中的%Err%不知从何而来；

　　5、:funa1段中，goto :funa1的语句是错误的；令我感到奇怪的是，:funa1、:funa2和以下的:funb1等段，前面并没有明确地指出有跳转到该段的语句，它们会得到执行吗？

　　6、:Copy段的标号取名不当，和CMD命令中的copy重合了，一旦要用跳转语句goto copy，还真不知道会有什么结果呢(我这里尚未测试)，即使不会发生什么意外，但是把标号名取得和命令名一模一样的做法，不可取；

　　7、

@Echo dpcdll.dl_>%temp%\oem.txt

@Echo oembios.bi_>>%temp%\oem.txt

@Echo oembios.ca_>>%temp%\oem.txt

@Echo oembios.da_>>%temp%\oem.txt

@Echo oembios.si_>>%temp%\oem.txt

@Echo pidgen.dll>>%temp%\oem.txt

@Echo setupp.ini>>%temp%\oem.txt

@Echo winnt.sif>>%temp%\oem.txt

这段的@符号完全没必要，可精简为：

(Echo dpcdll.dl_

Echo oembios.bi_

Echo oembios.ca_

Echo oembios.da_

Echo oembios.si_

Echo pidgen.dll

Echo setupp.ini

Echo winnt.sif)>%temp%\oem.txt

　　8、:funa这段的功能只是把CMD窗口的标题改变了，其实只要把改变的标题做到相应的段里就可以了，感觉这段代码没存在的必要。

　　罗罗嗦嗦谈了好几点，希望你针对具体需求作相应变动，精简工作大有可为<img src="images/smilies/face-laugh.png" align="absmiddle" border="0">