[Автоматизация] _7ZipAdd установка пароля на архив

[kristow13]

В документации для библиотеки <7Zip.au3> на странице http://autoit-script.ru/autoit3_docs/userfunctions/_7ZipAdd.htm
Написано что можно прописать параметр установки пароля на архив...
Примеры из документации работают.

Когда пробую написать вот так, то архив не формируется и выдает ошибку.

If _7ZipStartup() Then ; To test dll opening (can be omitted for some functions)
	$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,0,0,'1234')
	If @error Then
		MsgBox(16, "_7ZipAdd", "Error occurred")
	Else
		MsgBox(64, "_7ZipAdd", "Archive created successfully" & @LF & $retResult)
	EndIf
Else
	MsgBox(16, "_7ZipAdd", "Enable to start dll")
EndIf

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

P.S. Пробовал делать архив с паролем используя <uZip.au3>, но как я понял библиотека работает только с файлами, указать просто папку на выполнение архивации не получилось...

 

[Prog]

kristow13 [?]

Пробовал делать архив с паролем используя <uZip.au3>, но как я понял библиотека работает только с файлами, указать просто папку на выполнение архивации не получилось

Просканировать папку и добавить все файлы в архив, не вариант? Если бы в библиотеке была функция архивирования папки, она бы работала точно также.

 

[edyapd]

А если так

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,'','','1234')

 

[kristow13]

kristow13 [?]

Пробовал делать архив с паролем используя <uZip.au3>, но как я понял библиотека работает только с файлами, указать просто папку на выполнение архивации не получилось

Просканировать папку и добавить все файлы в архив, не вариант? Если бы в библиотеке была функция архивирования папки, она бы работала точно также.

Я про это думал... так ведь при сканировании я получаю список файлов для архивации.... А как быть с подпапками? И как при таком варианте сохранить всю структуру файлов и папок?

А если так

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,'','','1234')

Да так пробовал, не работает.
Проблема именно в задании пароля...
Так как если я делаю так:

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,0,0)

то скрипт работает...
А если пробую прописать пароль, то ошибка:

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,0,0,'1234')
$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,0,0,1234)
$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,5,1,0,0,"1234")

 

[Prog]

kristow13 [?]

как быть с подпапками?

Сканировать рекурсивно.

 

[joiner]

стандартный пример из справки

Спойлер

; http://www.autoitscript.com/forum/topic/85094-7zip/
#include <7Zip.au3>

; Пример 1
$ArcFile = FileSaveDialog("Создать новый архив", "", "Архивы (*.7z;*.zip;*.gzip;*.bzip2;*.tar)")
If @error Then Exit

$FileName = FileSelectFolder("Выберите каталог", "")
If @error Then Exit

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,0,1,'','','1234')
If @error Then
    MsgBox(64, "_7ZipAdd", "Ошибка")
Else
    MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf

пароль устанавливается


Добавлено:

Сообщение автоматически объединено: 5 Июн 2015

7-zip32.dll должна быть в одной папке со скриптом

 

[kristow13]

стандартный пример из справки

Спойлер

; http://www.autoitscript.com/forum/topic/85094-7zip/
#include <7Zip.au3>

; Пример 1
$ArcFile = FileSaveDialog("Создать новый архив", "", "Архивы (*.7z;*.zip;*.gzip;*.bzip2;*.tar)")
If @error Then Exit

$FileName = FileSelectFolder("Выберите каталог", "")
If @error Then Exit

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,0,1,'','','1234')
If @error Then
    MsgBox(64, "_7ZipAdd", "Ошибка")
Else
    MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf

пароль устанавливается


Добавлено:

Сообщение автоматически объединено: 5 Июн 2015

7-zip32.dll должна быть в одной папке со скриптом

странно, а у меня не работает... Выдает сообщение ошибка...
А подскажите какая у Вас версия библиотеки? :-[
У меня файл 7zip.au3 19.10.2012 и к нему два dll файла...
Если у Вас версия свежее, дайте ссылку пожалуйста, или прикрепите к сообщению...

 

[joiner]

http://autoit-script.ru/index.php?topic=10070.0
там все есть в комплекте. версия dll 4.31.0.3
я использую другую версию 7Z UDF и dll (здесь)

 

[kristow13]

Скачал библиотеку посвежее, и создание архива с паролем заработал!
Спасибо!

 

[Sinofriz]

Развитие русской справки

Эта тема является продолжением темы Ещё раз о русской справке :), которая теперь закрыта и является архивной. Онлайн справка находится тут (или чёрная тут). Ссылки на файлы справки: Полный комплект справки, зеркало 2014.07.09 Промежуточные обновления (без перепаковки с помощью htm2chm и...

autoit-script.ru

там все есть в комплекте. версия dll 4.31.0.3
я использую другую версию 7Z UDF и dll (здесь)

Файлы уже не доступны. Можете еще раз их залить? Очень нужно автоматизировать архивирование с паролем.

 

[joiner]

в архиве UDF, dll и часть русской справки, в которой есть раздел по работе с библиотекой

 

[Sinofriz]

Если:

#include <7ZipM.au3>

$ArcFile = 'd:\test\test.zip'
If @error Then Exit

$FileName = 'd:\test2\'
If @error Then Exit

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,0,1,'','')
If @error Then
    MsgBox(64, "_7ZipAdd", "Ошибка")
Else
    MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf

То все хорошо.

Но если пытаюсь добавить пароль:

#include <7ZipM.au3>

$ArcFile = 'd:\test\test.zip'
If @error Then Exit

$FileName = 'd:\test2\'
If @error Then Exit

$retResult = _7ZipAdd(0, $ArcFile, $FileName,0,0,1,'','','123')
If @error Then
    MsgBox(64, "_7ZipAdd", "Ошибка")
Else
    MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf

То пишет что ошибка

 

[xXx]

пишет что ошибка

Качаете *Полный комплект справки* (как качать), там в архиве нужные вам файлы и соответственно справка.

 

[joiner]

#include <7ZipM.au3>

$ArcFile = 'd:\test\test.7z'

$FileName = 'd:\test2\'

_7ZipStartup()
$retResult = _7ZipAdd(0, _ANSIToOEM($ArcFile), _ANSIToOEM($FileName), 0, 0, 1, '', '', '123')
If @error Then
    MsgBox(64, "_7ZipAdd", 'Ошибка')
Else
    MsgBox(64, "_7ZipAdd", "Архив создан успешно")
EndIf
_7ZipShutdown()