@echo off&setlocal enabledelayedexpansion
set "d=目标目录"
for /d %%a in (*) do if /i not "%%a"=="%d%" for %%b in ("%%~fa\*.txt") do for /f "tokens=1-3* delims=_" %%c in ("%%~nb") do (
	set e=%~dp0%d%\%%c_%%d_%%f
	if not exist "!e!" md "!e!"
	copy "%%b" "!e!"
)
复制代码

@echo off&setlocal enabledelayedexpansion
::目标目录填入5个，无须带引号，如果搜索的文件名都是同一个后缀如JPG，把dir /s /b *_*_*_*改成 dir /s /b *_*_*_*.jpg 会更好。
set "d1=path1"
set "d2=path2"
set "d3=path3"
set "d4=path4"
set "d5=path5"
for /l %%D in (1,1,5) do (
        pushd !d%%D!
        for /f "delims=*" %%x in ('dir /s /b *_*_*_*') do (
                  for /f "tokens=1,2,4 delims=_" %%i in ("%%~nx") do (
                                if defined _%%i_%%j_%%k (
                                             set /a n=!_%%i_%%j_%%k:~0,1!+1
                                             set "_%%i_%%j_%%k=!n!!_%%i_%%j_%%k:~1!,%%x"
                                ) else (
                                             set "_%%i_%%j_%%k=1,%%x"
                               )
                    )
         )
        popd
)
set newfile=d:\newfile
mkdir !newfile!
for /f "tokens=2-7 delims=,=" %%a in ('set _') do (
        if %%a equ 5 (
                copy "%%b" "!newfile!\%%~nxb" /y
                copy "%%c" "!newfile!\%%~nxc" /y
                copy "%%d" "!newfile!\%%~nxd" /y
                copy "%%e" "!newfile!\%%~nxe" /y
                copy "%%f"  "!newfile!\%%~nxf" /y
        )
)
start "!newfile!"
pause>nul
复制代码