cmd根据文件名创建文件夹并移动文件到创建的文件夹内

记事本另存为xxx.bat，编码选ANSI，跟多个文件放一起运行
@echo off
rem 根据文件名将文件移动进以该文件名命名的文件夹里
set #=Any question&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$% %z%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b') do (
if "%%~nxa" neq "%~nx0" (
if not exist "%%~na\" md "%%~na\"
echo;"%%a" --^> "%%~na\"
move "%%a" "%%~na\"
)
)
echo;%#% +%$%%$% %z%
pause

@echo off & title 移动文件到以文件名命名的文件夹内 By 依梦琴瑶

if not "%~1"=="" (
call :MvFile "%~1"
) else (
goto Input
)

:End
pause
exit

:Input
echo 请输入要移动的文件路径：
set /p Src=

call :MvFile "%Src%"
goto End

:MvFile
if not exist "%~dp1%~n1" md "%~dp1%~n1"
move "%~1" "%~dp1%~n1\"
goto :eof