[Busla]

Так "помогите решить" или "сделайте всё за меня"?
Что конкретно у вас вызывает затруднения?

[megaloman]

Код:

@Echo Off
cls
	Set "ArcIn=Z:\Box_In\*.rar
	Set "BoxOut=Z:\Box_Out\UnARC"
	Set "MaskOut=я19*.bat"
	Set "Word=chcp 1251"

	If Not Exist "%ArcIn%" (Echo Files "%ArcIn%" not found &Pause &Exit /B 2)
	If Not Exist "%BoxOut%\*.*" 2>nul Md "%BoxOut%"
	2>nul Md "%BoxOut%\tmp"
	Pushd "%BoxOut%\tmp" ||(Echo Folder "%BoxOut%" not found or not accessible &Pause &Exit /B 2)

	"C:\Program Files\WinRAR\WinRAR.exe" e -y "%ArcIn%" "%MaskOut%"
	Popd

	For /F "usebackq delims=" %%a In (`2^>nul FINDSTR /I /M /L /C:"%Word%" "%BoxOut%\tmp\%MaskOut%"`) Do (
		>nul Move /Y "%%a" "%BoxOut%\"
	)
	
	Rd /S /Q "%BoxOut%\tmp"
Pause
Exit /B