Iterate Over the Files in a Zip

Download Chilkat Zip ActiveX

This example shows how to iterate over the contents of a Zip file.

***********************************************************
*** Visual FoxPro Example Programs by Chilkat Software
*** Visual FoxPro Source Code Examples for Zip Compression
*** Visual FoxPro Examples for Zip Compression
*** Zip Compression in Visual FoxPro
***********************************************************

* This example iterates over the files in a Zip archive.

LOCAL zip, zipEntry, contents

zip = CreateObject('Chilkat.Zip2')
zip.UnlockComponent('anything for 30-day trial')        

* Open an existing zip archive
zip.OpenZip("tree.zip")

* Iterate over the entries in the Zip.
zipEntry = zip.FirstEntry()
contents = ""
do while zipEntry <> NULL

	contents = contents + zipEntry.FileName + ", " + STR(zipEntry.UncompressedLength) + ", " + STR(zipEntry.CompressedLength) + CHR(13) + CHR(10)
	
	zipEntry = zipEntry.NextEntry()
enddo

=MESSAGEBOX(contents)

zip.CloseZip

RELEASE zip

RETURN .T.

***********************************************************
*** Visual FoxPro Source Code Samples for Zip Compression
*** Visual FoxPro Sample Programs by Chilkat Software
*** Visual FoxPro Samples for Zip Compression
*** Zip Compression in Visual FoxPro
***********************************************************