@echo off
set "Folder=D:\abc"
md "%Folder%"
for %%i in (202101\*.txt) do (
    (for /d %%a in (*) do (
        type "%%a\%%~nxi"
    ))>"%Folder%\%%~nxi"
)
pause
复制代码

@echo off
set "SrcFolder=D:\数据\周转"
set "DstFolder=D:\数据\合并"
if not exist "%SrcFolder%" (
    goto :eof
)
if not exist "%DstFolder%" (
    md "%DstFolder%"
)
for /f "delims=" %%i in ('dir /b /ad "%SrcFolder%"') do (
    for /f "delims=" %%j in ('dir /b /a-d "%SrcFolder%\%%i\*.txt" 2^>nul') do (
        >"%DstFolder%\%%j" type "%SrcFolder%\%%i\%%j"
        for /f "delims=" %%k in ('dir /b /ad "%SrcFolder%" ^| findstr /v /b /e "%%i"') do (
            if exist "%SrcFolder%\%%k\%%j" (
                >>"%DstFolder%\%%j" type "%SrcFolder%\%%k\%%j"
            )
        )
        >>"%DstFolder%\%%j" echo,
    )
    goto :eof
)
复制代码

set sour=aaa
set dest=bbb
for /f  "usebackq tokens=* delims=" %%a in (`dir /s /b "%sour%\*.txt"`) do (
    type "%%~fa" >> "%dest%\%%~na.txt"
)
复制代码

D:.
│   1.bat
│   1.txt
│   2.txt
│   3.txt
│
├───11
│       1.txt
│       2.txt
│       3.txt
│
├───22
│       1.txt
│       2.txt
│       3.txt
│
└───33
        1.txt
        2.txt
        3.txt
复制代码

@echo off
md "合并"
for %%i in (202101\*.txt) do (
    (for /f "delims=" %%a in ('dir /b /ad^|findstr /v/r "合并"') do (
        type "%%a\%%~nxi"
    ))>"合并\%%~nxi"
)
pause
复制代码