(Visual FoxPro) Append Dir Tree to Existing Zip w/out Rewriting Entire Zip

Demonstrates how to use the QuickAppend method to append a directory tree to an existing .zip archive. This method works by editing the existing .zip -- it does not rewrite or recompress the contents of the existing .zip. It is the fastest way to append additional files to a pre-existing large .zip archive.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loZip
LOCAL lnRecurse

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loZip = CreateObject('Chilkat.Zip')

* The NewZip method only initializes the Zip object -- it does
* not create or write a .zip file.
lnSuccess = loZip.NewZip("notUsed.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Add a references to all files in a directory tree.
* Note: this does not read or compress the file contents --
* it simply adds file references to the zip object.
lnRecurse = 1
lnSuccess = loZip.AppendFiles("c:/temp/abc123/*",lnRecurse)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Appends the contents of the zip object to the preExisting.zip
* zip archive.  preExisting.zip is opened, and the files
* referenced by this zip object are streamed in, compressed,
* and appended to the end of the archive.
lnSuccess = loZip.QuickAppend("preExisting.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

? "Success!"

* Note: Additional files, directory trees, or in-memory data
* can be appended by calling AddFile, AppendFiles,
* AddString, AddBd, AddSb, etc. multiple times.
* Whatever files and/or in-memory data that are referenced by
* this zip object will be appended to preExisting.zip when
* QuickAppend is called

RELEASE loZip