; wraithdu
; http://www.autoitscript.com/forum/topic/116565-zip-udf-zipfldrdll-library/
#include <_Zip.au3>

$sZipFile = FileOpenDialog("Выберите архив", "", "Архивы ZIP (*.zip)", 3)
If @error Then Exit

$sAddFolder = FileSelectFolder("Выберите добавляемый каталог", "")
If @error Then Exit

$sAddFile = FileOpenDialog("Выберите добавляемый файл", "", "Все файлы (*.*)")
If @error Then Exit

MsgBox(0, 'Добавляемые элементы', $sAddFolder & @LF & $sAddFile & @LF & @LF & 'В архив: ' & $sZipFile)

$iRes = _Zip_AddItem($sZipFile, $sAddFolder)
If @error Then
	MsgBox(64, "_Zip_AddItem", "Ошибка @error = " & @error)
Else
	MsgBox(64, "_Zip_AddItem", "Каталог добавлен в архив: " & $iRes)
EndIf

$iRes = _Zip_AddItem($sZipFile, $sAddFile)
If @error Then
	MsgBox(64, "_Zip_AddItem", "Ошибка @error = " & @error)
Else
	MsgBox(64, "_Zip_AddItem", "Файл добавлен в архив: " & $iRes)
EndIf