WHY

一种思路：
把当前目录（包括子目录）的所有文件复制到 d:\new文件夹，遇到同名文件时，自动增加(1)、(2)等编号
如果只需要复制指定类型的文件，修改第4行的 *.* 即可。比如改成 *.txt 就只复制扩展名为txt的文件

1<1/* :
@echo off
md d:\new 2>nul
for /f "tokens=1*delims=/" %%i in ('dir /b /s /a-d *.*^|cscript //Nologo //E:jscript "%~f0"')do (
    copy "%%j" "d:\new\%%i"
)
pause & exit
*/

var map = {};
var str = WScript.StdIn.ReadAll().replace(
    /.+\\(.+)\r\n/g,
    function(a,b){
        var s = '', n = b.toLowerCase();
        map.hasOwnProperty(n)?(map[n]++,s='('+map[n]+')'):map[n]=0;
        b = b.replace(/(.+?)(\.[^.]+|)$/, '$1'+s+'$2');
        return(b + '/' + a);
    }
)
WScript.Echo(str)
复制代码

WHY

回复 4# pcl_test


    文件名含 +-～() 等字符呢？

WHY

for + call 方案，但效率绝逼不高

@echo off
for /r %%i in (*) do (
    set "strName=%%~nxi" & set "n="
    call :CP "%%i"
)
pause & exit

:CP
if not exist "d:\new\%strName%" copy "%~1" "d:\new\%strName%" & goto :EOF
if exist "d:\new\%strName%" set /a n+=1
set "strName=%~n1(%n%)%~x1"
goto :CP
复制代码

WHY

另外一种办法：

@echo off & setlocal enabledelayedexpansion    
if not "%~1"==":" (
    md d:\new 2>nul
    for /f "tokens=1*delims=/" %%i in ('"%~f0" :^|sort') do (
        if /i "%%i"=="!strName!" (
            set /a n+=1
            copy "%%j" "d:\new\%%~ni(!n!)%%~xi"
        ) else (
            set "n="
            copy "%%j" d:\new\
        )
        set "strName=%%i"
    )
    pause
) else (
    for /r %%i in (*) do echo %%~nxi/%%i
)
复制代码