>>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!
>
>Try this:
>

>o=CREATEOBJECT("shell.application")
>with o.NameSpace(fullpath_file_zip.zip)
>   ?.Items.count
>endwith
>

>
>Good Luck

Thanks!