【转载】按照文件名创建文件夹，并把文件移动到对应文件夹中

@echo off&cd /d "%~dp0"&mode con lines=5000
rem 按照文件名创建文件夹，并把文件移动到对应文件夹中
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
for /f "delims=" %%a in ('dir /a-d-h/b') do (
    if /i "%%~nxa" neq "%~nx0" (
        for /f "delims=." %%b in ("%%~na") do (
            if not exist "%%~b\" md "%%~b\"
            echo;"%%~a" --^> "%%~b\"
            move "%%~a" "%%~b\"
        )
    )
)
echo;%#% +%$%%$%/%_% %z%
pause
exit

传送门