Replace a File within a Zip

Demonstrates how to replace a file within a .zip

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL lnSaveExtraPath

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.OpenZip("a.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Locate the entry:
loEntry = loZip.FirstMatchingEntry("*HelloWorld123.txt")

IF (NOT (loEntry = NULL )) THEN

    loZip.DeleteEntry(loEntry)
    RELEASE loEntry

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

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

    =MESSAGEBOX("Entry replaced and .zip re-written.")

ELSE
    ? "Entry not found."
ENDIF