Modify Name of File Stored within Zip when Creating a .zip

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

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Demonstrates how to create a zip where the filename within the .zip is different than the filename that was added from the filesystem.

LOCAL loZip
LOCAL lnSuccess
LOCAL lnSaveExtraPath
LOCAL loEntry

loZip = CreateObject('Chilkat.Zip2')

lnSuccess = loZip.UnlockComponent("anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Failed to unlock zip component")
    QUIT
ENDIF

*  Intialize the zip object by calling NewZip.
loZip.NewZip("myZip.zip")

*  Add a reference to a file on disk to the zip object.
*  (When appending files to a zip, the files are not actually
*  read into memory.  References to the file(s) are added.
*  When WriteZip is called, the referenced files are streamed in
*  and compressed to the .zip.)

lnSaveExtraPath = 0
lnSuccess = loZip.AppendOneFileOrDir("c:/temp/a/hamlet.xml",lnSaveExtraPath)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  The zip object references a single file.
*  Retrieve the entry object...

loEntry = loZip.GetEntryByIndex(0)

*  Set the entry's filename to anything you want:
loEntry.FileName = "somethingElse.xml"

*  Note: Internally, the zip component retains the name of
*  the file referenced.  The current setting of the zip entry's
*  FileName property is stored in the .zip when writing.

*  The zip written here will contain somethingElse.xml
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
ELSE
    =MESSAGEBOX("Zip created!")
ENDIF