[megaloman]

michsh@vk, попробуйте, с Вашим символом работает

Код:

@Echo Off
cls
	>nul chcp 1251
	Set "BoxIn=Z:\Box_IN"
	Set /A L=120
	
	Call :ReNum "%BoxIn%" %L%
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%" /S /B /A:D`) DO Call :ReNum "%%d" %L%
pause
Exit /B

:ReNum
	Set /A M=0
	Pushd %1 || Exit /B

	>"%TMP%\%~nx0.txt" (FOR %%f IN (*.*) DO Echo %%f)
	FOR /F "usebackq delims=" %%f IN ("%TMP%\%~nx0.txt") DO Call Set /A M+=1 &Ren "%%f" "~~~%%~nxf"
	Set /A M=1%M%-%M%
	FOR %%f IN (~~~*.*) DO (
		Set /A M+=1
		Set "N=%%~nf"
		Call Ren "%%f" "%%N:~3,%2%%_%%M:~1%%%%~xf"
	)
	Popd
Exit /B 0