Код:
@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"
Set "FName=!Name:~-8!"
Call Set "Name=%%Name: !FName!=!FName!%%"
Call Set "Name=%%Name: !FName!=!FName!%%"
2>nul Md "!Name:~0,-8!"
>nul Call Move /Y "%%f" "!Name:~0,-8!\!FName!%%~xf"
)
Popd
pause
Exit /B 0
перед цифровой частью не должно быть более 3 пробелов