Replace a File within a Zip

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Demonstrates how to replace a file within a .zip

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