[megaloman]

Код:

@Echo Off &Cls &>nul Chcp 1251
	Set "BoxIn=Z:\Soft_Arc"
	Set "Mask=*.*"
	Set "Reg=20[0-9][0-9]-*[0-2][0-9]-*[0-3][0-9]-*_*[0-2][0-9]-*[0-5][0-9]-*[0-5][0-9]"

	Pushd "%BoxIn%"||(Echo Folder "%BoxIn%\" not found &Pause &Exit /B 2)
		For /F "usebackq delims=" %%f In (`2^>nul Dir "%Mask%" /B /A:-D ^|Findstr /R /C:"%Reg%"`) Do Call :MyRen "%%f"
	Popd
Pause
Exit /B

:MyRen
	Set "Name=%~1"
	Echo %Name%|>nul FindStr /R /C:"^20[0-9][0-9]"||Set "Name=%Name:*_=%"
	Set "Name=%Name:_=%"
	Set "Name=%Name:-=%"
	Ren %1 "%Name:~0,4%-%Name:~4,2%-%Name:~6,2% %Name:~8,2%-%Name:~10,2%-%Name:~12,2%%~x1" 
Exit /B