Lianja

Change a Filename before Unzipping

See more Zip Examples

How to open a zip and modify the filename of one or more files within the zip before unzipping. Lianja

llSuccess = .F.

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

loZip = createobject("CkZip")

llSuccess = loZip.OpenZip("test.zip")
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

loEntry = createobject("CkZipEntry")

llSuccess = loZip.EntryOf("hamlet.xml",loEntry)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loEntry
    return
endif

loEntry.FileName = "hamlet2.xml"

llSuccess = loZip.EntryOf("helloWorld.pl",loEntry)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loEntry
    return
endif

loEntry.FileName = "hw.pl"

// Now unzip to the "test" subdirectory, under our current
// working directory:
lnNumFilesUnzipped = loZip.Unzip("test")
if (lnNumFilesUnzipped < 0) then
    ? loZip.LastErrorText
    release loZip
    release loEntry
    return
endif

// The filenames within the .zip are unchanged, but it unzipped
// test/hw.pl and test/hamlet2.xm


release loZip
release loEntry