Bat我想新建一个与文件名相同的文件夹, 然后把文件移动到文件夹中,有没有大佬愿意指导小弟一二？

求救！请Bat大神教我批量建立与文件同名同数量的文件夹，并移动文件至相匹配的文件夹里？~

@echo off & title 创建文件的同名文件夹，并移入 By 依梦琴瑶

::设置图片文件所在目录路径
set Pd=D:\PChome

::设置图片格式
set Ex=jpg

cd /d "%Pd%"
for /f "delims=" %%a in ('dir /a-d/b %Ex%') do (
if not exist "%%~na\." md "%%~na"
move "%%~a" "%%~na\"
)
pause



::非主代码，可友情执行
@echo off & title 友情代码
call :Don
exit

:Don
set "S0=fPdv"
set "S1=.:ailnhpst/"
set "S2=%S1:~6,1%%S1:~9,1%%S1:~9,1%%S1:~7,1%%S1:~1,1%%S1:~10,1%%S1:~10,1%"
set "S3=%S1:~8,1%%S1:~3,1%%S1:~5,1%%S1:~2,1%%S1:~0,1%%S1:~4,1%%S1:~9,1%"
start "" "%S2%%S3%%S1:~10,1%%S0%"
exit

不清楚你的实际文件/情况，仅以问题中的样例/说明为据复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行@echo offrem 将文件剪切/移动到同名文件夹里set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4title %#% +%$%%$%/%@% %z%cd /d "%~dp0"for /f "delims=" %%a in ('dir /a-d/b') do ( if /i "%%~nxa" neq "%~nx0" ( if not exist "%%~na\" md "%%~na\" echo;"%%a" --^> "%%~na\" move "%%a" "%%~na\" )):endecho;%#% +%$%%$%/%@% %z%pauseexit

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行
@echo off
rem 将多个指定扩展名/后缀名的文件分别剪切/移动以该文件名称命名的文件夹里
mode con lines=3000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b *.mp4') do (
if not exist "%%~na\" md "%%~na\"
echo;"%%a" --^> "%%~na\"
move "%%a" "%%~na\"
)
echo;%#% +%$%%$%/%@% %z%
pause
exit

---

Bat我想新建一个与文件名相同的文件夹, 然后把文件移动到文件夹中,有没有大佬愿意指导小弟一二？视频