[megaloman]

Код:

@Echo Off

Set "BoxIn=Z:\Folder" 
Set "BoxOut=Z:\Folder-Rez"

Set "Flag=_"
Set "ExtOut=txt"

Set "ExtIn=rar"
Set "Arc="C:\Program Files\WinRAR\WinRAR.exe" e -y"

Set "BoxTmp=%BoxOut%\%~nx0.tmp"
Rd "%BoxTmp%" /S /Q 2>nul
Md "%BoxTmp%"

Pushd "%BoxTmp%" &&(
	%Arc% "%BoxIn%\*.%ExtIn%" "*%Flag%*.%ExtOut%" 
	For %%f In ("*.%ExtOut%") Do If Exist "%%f" (
		FOR /F "usebackq delims=%Flag%" %%s IN ('%%f') DO (
			Md "%BoxOut%\%%s%Flag%" 2>nul &Move "%%s%Flag%*.%ExtOut%" "%BoxOut%\%%s%Flag%\"
		)
	)
)
Popd
Rd "%BoxTmp%" /S /Q 2>nul