I was looking for a simple and small freeware ActiveX component for ZIP archive.
And behold, here it is:
http://www.xstandard.com/en/documentation/xzip/
HERE IS MY UDF (look also to attachment):
#include-once
#Tidy_Parameters=/sort_funcs /reel
; #AutoIt3Wrapper_Run_Debug_Mode=Y
OnAutoItExitRegister("_XZIP_Shutdown") ; in case the script exit without calling _XZIP_Shutdown()
#Region XZIP Include
#include-once
#include <MsgBoxC