[megaloman]

между текстовой и числовой частью просто огромное количество пробелов, даже не знаю сколько »

Сложность эти пробелы отрезать

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion
	Set "BoxIn=%~dp0"
rem	Set "BoxIn=Z:\Box_In"

	Set "Mask=.*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\.*.*"

	Pushd "%BoxIn%" ||(Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 
	For /F "usebackq delims=" %%f In (`2^>nul Dir /B /A:-D ^|FindStr /B /R /C:"%Mask%"`) Do (
		Set "Name=%%~nf"
		Call :Right "%%f" "!Name:~0,-8!" "!Name:~-8!%%~xf" 
	)
	Popd
pause
Exit /B 0

:Right
	Set "Txt=%~2"
	Set /A i=0
	:Begin
		Set /A i-=1
		If "!Txt:~%i%,1!"==" " GoTo :Begin
	Set /A i+=1
	If %i% Neq 0 Set "Txt=!Txt:~0,%i%!"
	2>nul Md "%Txt%"
	>nul Move /Y %1 "%Txt%\%~3"
Exit /B