@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "newfolder=汇总"
md "%newfolder%" 2>nul
for /f "delims=" %%a in ('dir /ad/b^|findstr /v "^%newfolder%$"') do set "fd=%%a"
for /f "delims=" %%a in ('dir /ad/b "%fd%"') do (
    for /f "delims=" %%b in ('dir /ad/b^|findstr /v "^%newfolder%$"') do (
        if exist "%%b\%%a\" (
            echo;"%%b\%%a" --^> "%newfolder%\%%a\"
            xcopy "%%b\%%a" "%newfolder%\%%a\" /q /s
        )
    )
)
pause
复制代码

@echo off
cd /d "%~dp0"
for %%a in (1,2,3) do (
    for %%b in (A,B,C) do (
        if not exist "%%a总" (
            md "%%a总"
        )
        move /y "%%b\%%a\*.*" "%%a总"
    )
)
复制代码