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

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

$iCount = _Zip_CountAll($sZipFile)
If @error Then
	MsgBox(64, "_Zip_CountAll", "Ошибка @error = " & @error)
Else
	_ArrayDisplay($iCount, 'файлов и папок')
EndIf