Hi Tommy,

Check this VFP implementation of GetZipComment and GetZipFilesList for ZIP acrchives

>Hi Gang...
>
>In this old app, there is some code in an error routine that tells how many files were unzipped in the the zip file....
>
>

>WITH ThisForm.oleUnZip
>	.ActionDZ = 0	&& No Action
>	.ZipFile = SYS(5) + '\POS\SIGIS.ZIP'
>	.FileSpec = "*.*"
>	.Destination = SYS(5) + '\POS'
>	.ActionDZ = 8	&& Extract
>	* Unzip Problem. Partial download...zip file is empty
>	IF .ErrorCode = 11
>		Thisform.edtStatus.value = "DONE" + CHR(13) + CHR(13) + ALLTRIM(STR(lnFilesDone)) + " file(s) read"
>
>		*TMT 01/16/08 Release the progress listbox...
>		oProg.Release
>		oProg = .NULL.
>		*TMT
>
>		RETURN
>	ENDIF
>ENDWITH
>

>
>See the lnFilesDone? Well, I didn't see any code that set it's value.
>
>So, is there a property of the DynaZip object (duzactxctrl.duzactxctrl.1) that can give this information?
>
>Thanks!