zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"

set "文件夹=d:\Users\joy\Desktop\PDF"
set "文本=明细.txt"
rem txt跟bat放一起

for /f "delims=" %%a in ('dir /a-d/b/s "%文件夹%\*.pdf"') do (
    call :loop "%%a"
)
pause&exit
:loop
for /f "tokens=1* delims=|" %%b in ('type "%文本%"') do (
    if "%%b" equ "%~n1" (
        echo;"%~1" --^> "%%c%~x1"
        ren "%~1" "%%c%~x1"
        exit /b
    )
)
goto :eof
复制代码