#DEFINE UNZIP_COUNTALLZIPMEMBERS    1
#DEFINE UNZIP_GETNEXTZIPINFO        2

LOCAL ;
	loUnZip AS "duzactxctrl.duzactxctrl.1", ;
	lnTotalFiles AS INTEGER, ;
	lnFile AS INTEGER

LOCAL ARRAY ;
	laFiles(1,1)

loUnZip = CREATEOBJECT("duzactxctrl.duzactxctrl.1")
loUnZip.UnZipSubOptions = 0
loUnZip.ZIPFile = "C:\TEST.ZIP"

_VFP.AUTOYIELD = .F.
loUnZip.ActionDZ = UNZIP_COUNTALLZIPMEMBERS

lnTotalFiles = loUnZip.ReturnCount

IF lnTotalFiles > 0
	DIMENSION laFiles(lnTotalFiles,1)

	FOR lnFile = 1 TO lnTotalFiles
		loUnZip.ActionDZ = UNZIP_GETNEXTZIPINFO
		laFiles[lnFile,1] = loUnZip.zi_FileName
	ENDFOR
ENDIF

_VFP.AUTOYIELD = .T.