Rename a filename within the .zip before zipping.

Demonstrates how to rename a file within a .zip prior to writing it.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL lnRecurse
LOCAL loEntry

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

lnSuccess = loZip.NewZip("test.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Append a directory tree.  The AppendFiles does
*  not read the file contents or append them to the zip
*  object in memory.  It simply appends references
*  to the files so that when WriteZip (or WriteZipAndClose,
*  or WriteExe, etc.) is called, the files are compressed
*  and encrypted.

lnRecurse = 1
loZip.AppendFiles("c:/temp/a/*",lnRecurse)

loEntry = loZip.GetEntryByName("Setup.exe")
IF (loEntry = NULL ) THEN
    =MESSAGEBOX("Failed to find entry in .zip")
    QUIT
ENDIF

*  Change the filename of this entry.
*  When the .zip is written, the "Setup.exe" is streamed
*  in from the filesystem and compressed into the .zip,
*  and named as "install.exe"
loEntry.FileName = "install.exe"

lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("Zip Created!")