_Zip_Unzip
Извлекает единственный элемент из ZIP-архива
#Include <_Zip.au3>
_Zip_Unzip($sZipFile, $sFileName, $sDestPath[, $iFlag = 21])
Параметры
| $sZipFile | Полный путь к ZIP-файлу |
| $sFileName |
Имя элемента в ZIP-архиве |
| $sDestPath |
Полный путь к папке назначения |
| $iFlag |
[необязательный] Флаги копирования файлов (по умолчанию = 1 + 4 + 16) 1 - Перезаписать файл в папке назначения, если он существует 4 - Без полосы прогресса 8 - Переименовывает, если файл с таким именем уже существует 16 - Отвечает "Да для всех" для любого отображаемого диалогового окна 64 - Сохраняет очередь отмен, если возможно 256 - Отображает окно с полосой прогресса, но не показывает имена файлов 512 - Не подтверждать создание нового каталога, если для выполнения операции это потребуется 1024 - Не отображать пользовательский интерфейс, если произошла ошибка 2048 - Версия 4.71. Не копировать атрибуты безопасности файла 4096 - Действует только в локальном каталоге, не действует рекурсивно в подкаталогах 8192 - Версия 5.0. Не копировать подключенные файлы как группа, копировать только указанные файлы |
Возвращаемое значение
| Успех: | Возвращает 1 |
| Ошибка: | Возвращает 0 и устанавливает @error |
| @error: | 1 - Отсутствует zipfldr.dll |
| 2 - Библиотека не установлена | |
| 3 - Путь к ZIP-файлу $sZipFile не является полный путь | |
| 4 - Файл $sZipFile не является с расширением ZIP | |
| 5 - Элемент не найден в ZIP-архиве | |
| 6 - Не удалось создать каталог назначения (при необходимости) | |
| 7 - Не удалось открыть каталог назначения | |
| 8 - Не удалось удалить файл/папку назначения при флаге перезаписи | |
| 9 - Каталог назначения существует, а флаг перезаписи не установлен | |
| 10 - Не удалось извлечь файл |
Примечания
Путь внутри архива $sFileName должен выглядеть так: 'some\dir\file.ext'. Не добавляйте к пути "\" справа или слева.Пример
; wraithdu
; http://www.autoitscript.com/forum/topic/116565-zip-udf-zipfldrdll-library/
#include <_Zip.au3>
$sZipFile = FileOpenDialog("Выберите архив", "", "Архивы ZIP (*.zip)", 3)
If @error Then Exit
$sFolder = FileSelectFolder("Выберите каталог назначения", "", 3)
If @error Then Exit
$iRes = _Zip_Unzip($sZipFile, 'file.txt', $sFolder)
If @error Then
MsgBox(64, "_Zip_Unzip", "Ошибка @error = " & @error)
Else
MsgBox(64, "_Zip_Unzip", "Успех: " & $iRes)
EndIf