- @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 (
- for /f "tokens=1* delims=-" %%b in ("%%~na") do (
- if not exist ".\%%b\" md ".\%%b\"
- echo;"%%a" --^> ".\%%b\"
- move "%%a" ".\%%b\"
- )
- )
- pause
复制代码
|