_7ZipAdd
Добавляет файлы в архив (a).
#Include <7Zip.au3>
_7ZipAdd($hWnd, $sArcName, $sFileName[, $sHide = 0[, $sCompress = 5[, $sRecurse = 1[, $sIncludeFile = 0[, _
$sExcludeFile = 0[, $sPassword = 0[, $sSFX = 0[, $sVolume = 0[, $sWorkDir = 0]]]]]]]]])
Параметры
$hWnd | Дескриптор родительского окна или окна владельца |
$sArcName |
Путь к архиву |
$sFileName |
Имена файлов добавляемых к архиву |
$sHide |
[необязательный] (-hide) Включите этот флаг, если хотите вызвать CallBack функцию |
$sCompress |
[необязательный] (-mx) Уровень сжатия 0-9 |
$sRecurse |
[необязательный] Режим рекурсии (вложенных каталогов) 0 - (-r-) Отключает рекурсию подкаталогов 1 - (по умолчанию) (-r) Включает рекурсию подкаталогов 2 - (-r0) Включает рекурсию подкаталогов, только для имен подстановочных знаков (wildcard) |
$sIncludeFile |
[необязательный] (-i) Включает имена файлов. Определяет имена файлов и подстановочные знаки (wildcard) или файл содержащий список обрабатываемых файлов. |
$sExcludeFile |
[необязательный] (-x) Исключает имена файлов. Указывает, какие имена файлов или (и) имена с подстановочными знаками (wildcard) должны быть исключены из операции |
$sPassword |
[необязательный] (-p) Пароль |
$sSFX |
[необязательный] (-sfx) Создаёт самораспаковывающийся архив. |
$sVolume |
[необязательный] (-v) Определяет размеры томов |
$sWorkDir |
[необязательный] (-w) Устанавливает рабочий каталог для временного базового архива |
Возвращаемое значение
Успех: | Возвращает строку с результатом. |
Ошибка: | Возвращает 0 и устанавливает @error равным 1 |
Примечания
Учтите, что UDF должна находится в одной папке с запускаемым скриптом.Пример
; rasim
; 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)
If @error Then
MsgBox(64, "_7ZipAdd", "Ошибка")
Else
MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf
; Пример 2
$ArcFile = FileSaveDialog("Создать новый архив", "", "Архивы (*.7z;*.zip;*.gzip;*.bzip2;*.tar)")
If @error Then Exit
$FileName = FileOpenDialog("Выберите файл", "", "All (*.*)")
If @error Then Exit
$retResult = _7ZipAdd(0, $ArcFile, $FileName)
If @error Then
MsgBox(64, "_7ZipAdd", "Ошибка")
Else
MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf
; Пример 3
$ArcFile = FileSaveDialog("Создать новый архив", "", "Архивы (*.7z;*.zip;*.gzip;*.bzip2;*.tar)")
If @error Then Exit
$FileName = FileSelectFolder("Выберите каталог", "")
If @error Then Exit
$sInclude = "c:\Program Files\AutoIt3\Examples\GUI\*.*"
$sExclude = "c:\Program Files\AutoIt3\Examples\GUI\*.au3"
$retResult = _7ZipAdd(0, $ArcFile, $FileName, 0, 5, 1, $sInclude, $sExclude)
If @error Then
MsgBox(64, "_7ZipAdd", "Ошибка")
Else
MsgBox(64, "_7ZipAdd", "Архив создан успешно" & @LF & $retResult)
EndIf