Delete a File from Within a Zip

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

This example shows how to delete a file from a Zip compression archive.

***********************************************************
*** 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 opens a Zip archive and finds a file
* within the Zip and deletes it.

LOCAL zip, zipEntry

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

* Open a Zip file
zip.OpenZip("tree.zip")

* Find the PDF entry
zipEntry = zip.FirstMatchingEntry("*.pdf")
IF ! ISNULL(zipEntry) then
	* Remove it from the Zip object.
	zip.DeleteEntry(zipEntry )
else
	=MESSAGEBOX("Entry not found in the Zip compression archive")
endif

* Update the Zip compression archive.
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
*** Zip Compression in Visual FoxPro
***********************************************************