[megaloman]

код всегда пятизначный, всегда в начале имени, все в одном каталоге, все файлы имеют расширение «.jpg» »

То же, что у Iska, но без setlocal enableextensions enabledelayedexpansion и немного изменил регулярку

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"
	Set "Ext=jpg"
	Set "RMask=^[0-9][0-9][0-9][0-9][0-9].*\.%Ext%$"
	Set /A N=5

	Pushd "%BoxIn%" ||(Echo Folder "%BoxIn%" not found &Pause &Exit /b 2)
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "*.%Ext%" ^|FINDSTR /I /X /R /C:"%RMask%"`) DO (
		Set "Name=%%f"
		2>nul Call MD "%BoxOut%\%%Name:~0,%N%%%"
		Call Move /Y "%%f" "%BoxOut%\%%Name:~0,%N%%%\" >nul
	)
	Popd
Pause
Exit /B 0