批处理 批量复制，遇到同名文件自动重命名。

Question

我的文件是这样，有一个总目录，然后里面有很多子目录，子目录又有很多子目录。这样大概5-6层，才是我所需要的文件。

　　现在我的需求是将这些文件统一都复制到一个目录里，文件夹不要被复制，只需要复制文件，但是因为里面有很多同名文件，复制的时候会起冲突，询问是否覆盖。我要求是不能覆盖，如果同名则自动重命名，重命名规范无所谓。
　　找了一朋友写了一份批处理，但是只能复制当前目录的，如果有很多子目录就不能复制了。代码如下：

@echo off
set num=0

set aa=目录1

set bb=目录2

for /f "delims=" %%i in ('dir /a-d /b %aa%\*.*') do (
if not exist "%bb%\%%i" (
copy "%aa%\%%i" %bb%\>nul
) else call :copy_txt "%aa%\%%i" "%%~ni" %%~xi
)
goto :eof

:copy_txt
set file_n=%2
set "file_n=%file_n:~1,-1%"
set file_x=%3
set /a num+=1
if not exist "%bb%\%file_n%%num%%file_x%" (
copy %1 "%bb%\%file_n%%num%%file_x%">nul
) else call :copy_txt %1 "%file_n%" %file_x%
set num=0
goto :eof

Answer 1

批处理程序：
@echo off
setlocal enabledelayedexpansion
set s=D:\m1
set d=D:\m2
pushd %s%
(for /f "tokens=*" %%i in ('dir/s/b/a-d') do (
set /a n=1
if exist "%d%\%%~nxi" for /f %%j in ('dir/b "%d%\%%~nxi"^|find /c /v ""') do set /a n=%%j+1
if !n!==1 (copy "%%i" "%d%\%%~nxi") else copy "%%i" "%d%\%%~ni_!n!%%~xi"))

批处理(Batch)，也称为批处理脚本。顾名思义，批处理就是对某对象进行批量的处理，通常被认为是一种简化的脚本语言，它应用于DOS和Windows系统中。批处理文件的扩展名为bat 。目前比较常见的批处理包含两类：DOS批处理和PS批处理。PS批处理是基于强大的图片编辑软件Photoshop的，用来批量处理图片的脚本；而DOS批处理则是基于DOS命令的，用来自动地批量地执行DOS命令以实现特定操作的脚本。更复杂的情况，需要使用if、for、goto等命令控制程式的运行过程，如同C、Basic等高级语言一样。如果需要实现更复杂的应用，利用外部程式是必要的，这包括系统本身提供的外部命令和第三方提供的工具或者软件。批处理程序虽然是在命令行环境中运行，但不仅仅能使用命令行软件，任何当前系统下可运行的程序都可以放在批处理文件中运行。

Answer 2

@echo off
setlocal enabledelayedexpansion
set s=d:\work
set d=e:\back
pushd %s%
for /f "tokens=*" %%i in ('dir/s/b/a-d') do (
for /f %%j in ('dir/b "%d%\%%~nxi"^|find /c /v ""') do set /a n=%%j+1
if !n!==1 copy "%%i" "%d%\%%~nxi" else copy "%%i" "%d%\%%~ni!n!%%~xi")追问

提示这样的错误。

追答

@echo off
setlocal enabledelayedexpansion
set s=d:\work
set d=e:\back
pushd %s%
(for /f "tokens=*" %%i in ('dir/s/b/a-d') do (
for /f %%j in ('dir/b "%d%\%%~nxi"^|find /c /v ""') do set /a n=%%j+1
if !n!==1 (echo copy "%%i" "%d%\%%~nxi") else copy "%%i" "%d%\%%~ni!n!%%~xi"))>out.txt
notepad out.txt

把out.txt的信息hi给我看看。

追问

正确答案为
@echo off
setlocal enabledelayedexpansion
set s=D:\m1
set d=D:\m2
pushd %s%
(for /f "tokens=*" %%i in ('dir/s/b/a-d') do (
set /a n=1
if exist "%d%\%%~nxi" for /f %%j in ('dir/b "%d%\%%~nxi"^|find /c /v ""') do set /a n=%%j+1
if !n!==1 (copy "%%i" "%d%\%%~nxi") else copy "%%i" "%d%\%%~ni_!n!%%~xi"))

谢谢sudoku52

本回答被提问者采纳