[Iska]

Ruslan-kam, примерно так:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sPath=%~1

if not defined sPath (
	call :Usage
	exit /b 1
)

if not exist "%sPath%\" (
	echo Can't find folder [%sPath%]
	exit /b 2
) else echo 3


for %%i in ("%sPath%\*.*") do (
	for %%j in ("%%~dpni") do (
		echo Add [%%i] into [%%~nj.7z]
		"%ProgramFiles%\7-Zip\7z.exe" a "%%~nj.7z" "%%i" 1>nul
	)
)

endlocal
exit /b 0
rem ==========================================================================

rem ==========================================================================
:Usage
	echo Usage: %~nx0 ^<folder^>
	exit /b 0
rem ==========================================================================

Вызываете, указав в качестве параметра путь к папке: «Имеется папка, в ней *.exe файлы и *.txt файлы с описанием». Дабы сам пакетный файл не попал в архивы — не кладите его в эту папку, а вызывайте из любого другого места указанием пути к нему. Архивы будут созданы в текущей папке.

[Ruslan-kam]

Iska, ура! Сработало!
Спасибо, добрый человек.

[Noob_Noob]

Помогите нубу справится.
Архивирую фалы в каталоге найденным здесь же скриптом.

Код:

@Echo Off
ChCp 1251>Nul

Set src=D:\Source
Set arch=D:\Arch
Set ar7z=C:\Program Files\7-Zip\7z.exe

(for /r "%src%" %%a in (*) do (set "$pna=%%~pna"& set "$a=%%a"
 SETLOCAL EnableDelayedExpansion
 "%ar7z%" a "%arch%!$pna!.7z" -psecret -mhe "!$a!">nul
 ENDLOCAL
))

Теперь нужно выполнить обратную задачу:

Код:

@Echo Off
ChCp 1251>Nul

Set src=D:\Arch
Set arch=D:\Source1
Set ar7z=C:\Program Files\7-Zip\7z.exe

(for /r "%src%" %%a in (*) do (set "$pna=%%~pna"& set "$a=%%a"
 SETLOCAL EnableDelayedExpansion
 "%ar7z%" x -psecret -o"%arch%!$pna!" "!$a!">nul
 ENDLOCAL
))

В результате каждый архив распаковывается в свою папку, хотя структура каталогов сохраняется. Как сделать, чтобы каждый архив распаковывался как файл, сохранив при этом структуру каталогов?

[Iska]

Из письма в PM:

Помогите, пжлст, с моим вопросом. Уверен, это не займет у Вас много времени ))) http://forum.oszone.net/thread-185028-6.html

Ваш вопрос непонятен.

Скрытый текст

найденным здесь же скриптом. »

Где именно? Приведите ссылку на пост, если уж не пишете, что он должен делать.

обратную задачу »

Что есть «обратная задача» неясно, поскольку не описана «прямая». Словами, разумеется, тоже не описано.

чтобы каждый архив распаковывался как файл, сохранив при этом структуру каталогов? »

«архив распаковывался как файл» не смог осилить.