Xbase++ Requires Chilkat v11.0.0+

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

See more Zip Examples

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

LOCAL nSuccess
LOCAL oZip
LOCAL nSaveExtraPath
LOCAL oEntry

nSuccess := 0

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

oZip := CreateObject("Chilkat.Zip")

//  Intialize the zip object by calling NewZip.
nSuccess := oZip: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.)
nSaveExtraPath := 0
nSuccess := oZip:AddFile("/temp/a/hamlet.xml", nSaveExtraPath)
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  The zip object references a single file.
//  Retrieve the entry object...
oEntry := CreateObject("Chilkat.ZipEntry")
oZip:EntryAt(0, oEntry)

//  Set the entry's filename to anything you want:
oEntry: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
nSuccess := oZip:WriteZipAndClose()
IF (nSuccess != 1)
    ? oZip:LastErrorText
ELSE
    ? "Zip created!"
ENDIF

oZip:destroy()
oEntry:destroy()