[artbiokron@vk]

Решил вопрос следующим:

Код:

Set "BoxIn=C:\00_TEMP_LR\_2400"
Set "Mask=P_*.jpg"
Set /A NN=5

Set "BoxOut=C:\00_TEMP_LR\_2400"

FOR /F "usebackq tokens=1,2 delims=_" %%i IN (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D`) DO Call :MoveNN "%%i" "%%j" "%BoxIn%" "%BoxOut%" %NN%
GoTo :Eof

:MoveNN
	If Not Exist "%~3\%~1_%~2" GoTo :Eof
	Set "NewDir=%~2"
	Call Set "NewDir1=%%NewDir:~0,%5%%"
	Set "NewDir=%~4\%NewDir1%"
	If Not Exist "%NewDir%" Md "%NewDir%" >nul 2>&1
	Move "%~3\%~1_%NewDir1%*%~x2" "%NewDir%\" >nul 2>&1
GoTo :Eof

пришлось переименовать файлы, чтобы они не содержали "_" и добавив префикс "P-"