; 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