[文件操作] 求助批处理识别文件名创建文件夹并将文件移入

@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%F in ('dir /b/a-d *_*p*.jpg') do (
   set "dd=%%~nF" &set "d=!dd!" &set "n=" &(call :cutEd)
   for %%k in (!k!) do (set "d=!dd:~,%%k!")
   if not exist "!d!\" md "!d!"
   move /y "%%F" "!d!\")
pause&exit/b
:cutEd
   if "!d!"=="" (exit/b) else set "c=!d:~-1!"
   if "!c!"=="_" (exit/b) else if /i "!c!"=="p" set "k=!n!"
   set "d=!d:~,-1!" &set/a "n-=1" &goto :cutEd
复制代码