zaqmlp

set "Str=%~nx1"

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b^|find /v "%~nx0"') do (
    set "file=%%a"
    set "name=%%~nxa"
    setlocal enabledelayedexpansion
    if not exist "!name:~1,4!" md "!name:~1,4!"
    echo;"!file!" --^> "!name:~1,4!\!name:~4!"
    move /y "!file!" "!name:~1,4!\!name:~4!"
    endlocal
)
pause
复制代码