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 ENDWITHSee the lnFilesDone? Well, I didn't see any code that set it's value.