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

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loZip = createobject("CkZip")

// Intialize the zip object by calling NewZip.
llSuccess = 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.)
llSaveExtraPath = .F.
llSuccess = loZip.AppendOneFileOrDir("/temp/a/hamlet.xml",llSaveExtraPath)
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loZip
    return
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
llSuccess = loZip.WriteZipAndClose()
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
else
    ? "Zip created!"
endif



release loZip