77七

@echo off
cd /d "%~dp0"
set m=17
for /f "delims=" %%d in ('dir /b /s /ad') do (
	set f=%%d
	set d=%%~nxd
	for /f "delims=" %%i in ('2^>nul dir /b /a-d "%%d\*.jpg"') do (
		set n=%%~ni.
		setlocal enabledelayedexpansion
		if "!n:~%m%,1!" neq "" (
			if /i "!n:~0,%m%!" neq "!d!" (
				md "!f!\!n:~0,%m%!" 2>nul
				move "!f!\!n:~0,-1!%%~xi" "!f!\!n:~0,%m%!\"
			)
		)
		endlocal
	)
)
pause
复制代码

判断了文件名前17位是否与文件夹名相同，方便多次归入。