Merge Zip Archives - Append .zip onto another .zip

Demonstrates how to use the QuickAppend method to append the contents of one .zip archive to another .zip archive. This method works by editing the target .zip -- it does not rewrite the target .zip. It does not recompress (or re-encrypt) the data in either archive. It is the fastest way to append additional files or data to a pre-existing large .zip archive. Note: The QuickAppend method is new and available in the pre-release downloads, or in official releases dated after 6-October-2007.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Open the .zip archive that is to be appended to target.zip.
*  You should open the smaller of the two .zip archives here --
*  to minimize the amount of data to be copied.  When the .zips
*  are merged, nothing is recompressed.  The compressed (and
*  possibly encrypted) data is simply appended to the end
*  of the target .zip.
lnSuccess = loZip.OpenZip("zipToBeAppended.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Appends the contents of this zip object to the target.zip
*  archive.  After calling QuickAppend, target.zip will contain
*  both its original contents as well as the contents of
*  "zipToBeAppended.zip".
lnSuccess = loZip.QuickAppend("target.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("Success!")