_Zip_Create
Создаёт пустой архив
#Include <_Zip.au3>
_Zip_Create($sFileName[, $iOverwrite = 0])
Параметры
| $sFileName | Полный путь к новому ZIP-файлу |
| $iOverwrite |
[необязательный] Флаг перезаписи 0 - (по умолчанию) не перезаписывать файл, если он существует 1 - перезаписывать файл, если он существует |
Возвращаемое значение
| Успех: | Возвращает путь к новому ZIP-файлу |
| Ошибка: | Возвращает 0 и устанавливает @error |
| @error: | 1 - Файл с таким именем уже существует, а флаг $iOverwrite не установлен |
| 2 - Не удалось создать новый файл |
Пример
; wraithdu
; http://www.autoitscript.com/forum/topic/116565-zip-udf-zipfldrdll-library/
#include <_Zip.au3>
$sFileName = FileSaveDialog("Создать новый архив", "", "Архивы ZIP (*.zip)")
If @error Then Exit
If StringRight($sFileName, 4) <> '.zip' Then $sFileName &= '.zip'
$sResPath = _Zip_Create($sFileName)
If @error Then
MsgBox(64, "_Zip_Create", "Ошибка @error = " & @error)
Else
MsgBox(64, "_Zip_Create", "Архив создан успешно" & @LF & $sResPath)
EndIf