; 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_UnzipAll($sZipFile, $sFolder)
If @error Then
	MsgBox(64, "_Zip_UnzipAll", "Ошибка @error = " & @error)
Else
	MsgBox(64, "_Zip_UnzipAll", "Успех: " & $iRes)
EndIf