[megaloman]

Код:

@Echo Off &Cls
>nul Chcp 1251
	Set "BoxIn=Z:\Box_In"
	Set "BoxShr=k12345"
	Set Mask="%BoxShr%_*.png"

	Set "BoxAdd=Z:\Soft_Arc\123"
	Set Arc="C:\Program Files\7-Zip\7z.exe" a -mx9 "Z:\Box_Arc\archive.7z"

	Set /A M=0
	Pushd "%BoxIn%\%BoxShr%" || (Echo Folder "%BoxIn%\%BoxShr%" not found &Pause &Exit /B 2)
		For /R "%BoxIn%\%BoxShr%" %%f In ("%Mask%") Do (
			Set /A M+=1
			Call Set "@@@%%M%%=Ren "%%f.tmp" "%BoxShr%_%%M%%%%~xf""
			Ren "%%f" "%%~nxf.tmp"
		)
		For /F "usebackq tokens=2 delims==" %%f In (`2^>nul Set "@@@"`) Do %%f
	Popd
Pause
Exit /B 0