[Iska]

kmc, уточним: Вам нужно архивировать всё содержимое одной папки (например, «D:\Ser\Source»), включая все вложенные папки и файлы, в один архив, который нужно помещать в некую папку (например, «D:\Ser\Arch») в создаваемую подпапку с именем, основанным на текущей дате (например, «…%Date:~6,4%%Date:~3,2%%Date:~0,2%»)?

P.S. Код на форуме оформляется тэгом «code».

[kmc]

Iska, Совершенно верно.

[chipoza]

Подскажите пожалуйста у меня похожая задача, но есть небольшая разница, требуется: архивировать директорию с вложеными папками и кучей файлов, чтобы каждый файл получался как отдельный архив с сохранением структуры папок.

я взял скрипт от gora, слегка изменил:

@Echo Off
ChCp 1251>Nul
SetLocal EnableDelayedExpansion
Set src=F:\users_backup\dv\src
Set arch=F:\users_backup\dv\temp
Set ar7z=C:\Program Files\7-Zip\7z.exe

(For /R "%src%" %%a In (*.*) Do (
"%ar7z%" a "%arch%%%~pa%%~na.7z" `%%a`>Nul
Echo !Date! !Time! Файл "%%a" заархивирован в "%arch%%%~pa%%~na.7z"
Del /F/Q "%%a">Nul
Echo !Date! !Time! Исходный файл %%a удален
)
)>>log.txt


Всё работает, но есть косяк, с обработкой файлов содержащих в названии спецсимволы, как можно это обойти и обрабатывать их нормально?

[amel27]

есть косяк, с обработкой файлов содержащих в названии спецсимволы, как можно это обойти и обрабатывать их нормально? »

Код:

@Echo Off
ChCp 1251>Nul

Set src=F:\users_backup\dv\src
Set arch=F:\users_backup\dv\temp
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" "!$a!">nul
 if exist "%arch%!$pna!.7z" (
 echo !date! !time! Файл "%%a" заархивирован в "%arch%!$pna!.7z"
 del /f/q "!$a!">nul
 echo !date! !time! Исходный файл "!$a!" удален)
 ENDLOCAL
))>>log.txt

P.S. для кода используйте теги CODE

[chipoza]

amel27, большое спасибо всё работает

[kmc]

Iska,хочу также уточнить,чтобы структура папок оставалось той же

[gora]

kmc, выбирайте вариант:

Код:

@Echo Off
Set src=e:\Temp\src
Set arch=e:\Temp\arch
Set ar7z=c:\Program Files\7-Zip\7z.exe

:: Упаковка содержимого папки "src" с самой папкой "src"
"%ar7z%" a "%arch%\with_folder_%Date:~6,4%%Date:~3,2%%Date:~0,2%.7z" "%src%" >Nul

:: Упаковка содержимого папки "src" без самой папкой "src"
"%ar7z%" a "%arch%\without_folder_%Date:~6,4%%Date:~3,2%%Date:~0,2%.7z" "%src%\*" >Nul

[kmc]

gora,Спасибо.
Я адаптирую под данный код Ваш пример ,получается "%PgmArc%" a "%Arch%\with_folder_%Date:~6,4%%Date:~3,2%%Date:~0,2%.7z" "%Source%" >Nul и что-то никак не пойму куда закодить, туда куда вроде бы надо он не архивыриует,создаёт только папку,понятное дело что не там прописываю.

Set Source=D:\Ser\Source
Set Arch=D:\Ser\Arch
Set ExtArc=7Z
Set LogFile=D:\Ser\Log\{Archives.log

Set PgmArc="C:\Program Files\7-Zip\7z.exe"

Set DirDay=%Arch%\%Date:~6,4%%Date:~3,2%%Date:~0,2%
md "%DirDay%"

FOR %%i IN ("%Source%\*.*") DO Call :Arhivator "%%i"
GoTo :Eof

:Arhivator

Set N=%DirDay%\%~nx1.%ExtArc%

%PgmArc% a "%N%" %1

If Exist "%N%" (
Echo %Date% %Time% %N% >>%LogFile%

)

[kmc]

gora,Спасибо.
Я адаптирую под данный код Ваш пример ,получается "%PgmArc%" a "%Arch%\with_folder_%Date:~6,4%%Date:~3,2%%Date:~0,2%.7z" "%Source%" >Nul и что-то никак не пойму куда закодить, туда куда вроде бы надо он не архивыриует,создаёт только папку,понятное дело что не там прописываю.

Set Source=D:\Ser\Source
Set Arch=D:\Ser\Arch
Set ExtArc=7Z
Set LogFile=D:\Ser\Log\{Archives.log

Set PgmArc="C:\Program Files\7-Zip\7z.exe"

Set DirDay=%Arch%\%Date:~6,4%%Date:~3,2%%Date:~0,2%
md "%DirDay%"

FOR %%i IN ("%Source%\*.*") DO Call :Arhivator "%%i"
GoTo :Eof

:Arhivator

Set N=%DirDay%\%~nx1.%ExtArc%

%PgmArc% a "%N%" %1

If Exist "%N%" (
Echo %Date% %Time% %N% >>%LogFile%

)

[sov44]

Необходимо создать 7z sfx ( или rar sfx ) содержимого папки с подпапками с запуском батника из самой папки. Сам батник должен быть в архиве. Исходную папку очистить. Архив создать в корне диска С.
Такое возможно?

п.с. Чтобы сам батник не был занят системой и попал в архив, может быть всё скопировать в временную папку для дальнейшей архивации?