[megaloman]

Код:

@Echo Off &cls
>nul Chcp 1251
	Set "BoxIn=Z:\Box_In"
	Set "Mask=42*.*"
	Set "BoxOut=Z:\Box_In"

	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D ^| FindStr /I /R /B /C:"[0-9][0-9][0-9][0-9][0-9][0-9]"`) Do (
		If Exist "%BoxIn%\%%f" (
			Set "Name=%%f"
			2>nul Call MD "%BoxOut%\%%Name:~0,6%%"
			>nul Call Move /Y "%BoxIn%\%%Name:~0,6%%*.*" "%BoxOut%\%%Name:~0,6%%\"
		) 
	)
pause
Exit /B