Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DynaZip - how many files in Zip File?
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Third party products
Title:
DynaZip - how many files in Zip File?
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01375043
Message ID:
01375043
Views:
79
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!
Tommy Tillman A+ NetWork+ MCP
Next
Reply
Map
View

Click here to load this message in the networking platform