[alpap]

Код:

@echo off
set "d_in=C:\Folder"
set "d_out=C:\Folder-rez"
for /f "delims=" %%A in ('dir/a-d/b "%d_in%\*.*"') do (
 for /f "tokens=2* delims=_ " %%a in ('""%ProgramFiles%\7-Zip\7z.exe" x "%%A" -o"%%~nA"|find "Extracting""') do (
  if not exist "%d_out%\%%a" md "%d_out%\%%a"
  for %%B in ("%d_out%\%%a") do set n=0& call :l "%%~nA" "%%~nB" "%%a" "%%b"
 )
 rd /s /q "%%~nA"
)
exit
 
:l
 if "%~2"=="%~3" if not exist "%d_out%\%~3\%~3%n%_%~4" (copy "%~1\%~3_%~4" "%d_out%\%~3\%~3%n%_%~4") else (set/a n+=1& goto l)
exit/b

.

[pawok_21]

alpap, Спасибо, все четоко отработало!

[pawok_21]

@echo off set "d_in=C:\Folder" set "d_out=C:\Folder-rez" for /f "delims=" %%A in ('dir/a-d/b "%d_in%\*.*"') do ( for /f "tokens=2* delims=_ " %%a in ('""%ProgramFiles%\7-Zip\7z.exe" x "%%A" -o"%%~nA"|find "Extracting""') do ( if not exist "%d_out%\%%a" md "%d_out%\%%a" for %%B in ("%d_out%\%%a") do set n=0& call :l "%%~nA" "%%~nB" "%%a" "%%b" ) rd /s /q "%%~nA" ) exit :l if "%~2"=="%~3" if not exist "%d_out%\%~3\%~3%n%_%~4" (copy "%~1\%~3_%~4" "%d_out%\%~3\%~3%n%_%~4") else (set/a n+=1& goto l) exit/b »

Задача немного усложнилась. Нужно добавить проверку на расширение извлекаемых фалов. К примеру в архивы помещены файлы *.jpg а нужно извлечь только файлы формата *.txt . Как добавить такую проверку в код?

[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

[pawok_21]

Скрытый текст @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%" &&Move "%%s%Flag%*.%ExtOut%" "%BoxOut%\%%s%Flag%\" ) ) ) Popd Rd "%BoxTmp%" /S /Q 2>nul »

Спасибо огромное, все работает.
Я так понял в процессе работы создается папка темп, по завершению работы все разархивированные фалы перемещаются в нужную папку. Надеюсь не зависнет при копировании, так как итоговых файлов на 10-ки Гигабайт и порядка 2-3 млн. файлов.

[megaloman]

pawok_21, обратите внимание, я исправил неточность в коде, а Вы этого не увидели, вместо
Md "%BoxOut%\%%s%Flag%" &&Mov ......
Надо

Код:

Md "%BoxOut%\%%s%Flag%" 2>nul &Move "%%s%Flag%*.%ExtOut%" "%BoxOut%\%%s%Flag%\"

Это существенно при повторном запуске скрипта, когда выходные папки уже существуют.