zaqmlp

@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
复制代码

zaqmlp

回复 5# AZT

赞助实际点