求救！请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 off
rem 将一个指定目录里的多个图片文件分别剪切/移动到相同名称的文件夹里
mode con lines=3000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
set "folder=E:\xxx\PChome"
set ext=*.jpg *.jpeg *.bmp *.png
if not exist "%folder%" (echo;"%folder%" not found&pause&exit)
pushd "%folder%"
for /f "delims=" %%a in ('dir /a-d/b %ext%') do (
md "%%~na\" 2>nul
move "%%a" "%%~na\"
)
popd
echo;%#% +%$%%$%/%@% %z%
pause
exit