Create a Zip Compression Archive

Download Chilkat Zip ActiveX

This example shows how to create a Zip compression archive.

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

	* This example creates a Zip archive.
	* It recursively descends a directory tree and adds
	* all files to the Zip.

	LOCAL zip

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

	* Create a new Zip and append files and directories recursively.
	zip.NewZip("myZip.zip")
	zip.AppendFiles("./Tree/*",1)
	zip.WriteZipAndClose

	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
	***********************************************************