Любой язык - [решено] Архивирование файлов в каталоге

[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]

Цитата sov44:



а архивировались в sfx только её содержимое с подпапками

Любой язык - [решено] Архивирование файлов в каталоге

Код:

Код: Выделить всё

@Echo off
start "Rar" "C:\Program Files\Winrar\Winrar.exe" M -r -ep1 -sfx "C:\%~n0.exe" "%~dp0"

[sov44]

Как сделать, чтобы сама папка, в которой батник не архивировались, а архивировались в sfx только её содержимое с подпапками? Как добавить комментарий и значёк иконки?

[megaloman]

Цитата sov44:



задача добавления значка ico в sfx

Любой язык - [решено] Архивирование файлов в каталоге

Код:

Код: Выделить всё

ResHacker.exe -addoverwrite "C:\%~n0.exe", "C:\%~n0.exe", 100.ico, Icon, 100,

Для WinRAR есть специальный ключ для смены иконки:
Цитата:



Ключ -IICON — указать значок для SFX-архива



Данный ключ позволяет указать значок для создаваемого или обновляемого SFX-архива. Параметр означает имя файла со значком (.ico). При этом SFX-модуль не должен быть сжат с помощью какой-либо программы упаковки исполняемых файлов (например, UPX).

[sov44]

Вопрос добавления комментария к rar sfx решен. Информация взята

отсюда

Код:

Код: Выделить всё

@Echo off
start "Rar" "C:\Program Files\Winrar\Winrar.exe" M -r -ep1 -z"komm.txt" -sfx "C:\%~n0.exe" "%~dp0"

Осталась не решеной задача добавления значка ico в sfx



отправил запрос в службу поддержки RAR

[gora]

Подскажите, как отследить окончание работы RAR и вывести Echo?

С пингом не всегда угадывается.

[sov44]

megaloman, gora, спасибо за помощь. Вопрос добавления значка ярлыка тоже решен.



Код:

Код: Выделить всё

@Echo off
start "Rar" "C:\Program Files\Winrar\Winrar.exe" M -r -ep1 -sfx -iicon"1.ico" -z"komm.txt" "C:\%~n0.exe" "%~dp0"

[sov44]

Подскажите, как отследить окончание работы RAR и вывести Echo?

С пингом не всегда угадывается.

[amel27]

Цитата sov44:



командная строка сразу закрывается

Любой язык - [решено] Архивирование файлов в каталоге

Так и должно быть.

Вы используете ключ M который удаляет после архивации все файлы из текущей папки в том числе и сам батник. Поэтому батник и не может выполнить ни чего после строки архивирования ибо его (батника) после архивации больше нет.