(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL lnSaveExtraPath
LOCAL loEntry

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

* Intialize the zip object by calling NewZip.
lnSuccess = 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("/temp/a/hamlet.xml",lnSaveExtraPath)
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
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
    ? loZip.LastErrorText
ELSE
    ? "Zip created!"
ENDIF

RELEASE loZip