Xbase++ Requires Chilkat v11.0.0+

Extract a Single ZIP Entry While Preserving Its Stored Path

See more Zip Examples

This example demonstrates how to use the ZipEntry.Extract method to extract a single entry from a ZIP archive.

The example first creates a ZIP archive containing a text file. It then re-opens the ZIP, finds the entry, and extracts it to a base directory.

The Extract method uses the relative path stored within the ZIP entry. Any required subdirectories are created automatically beneath the specified base directory.

Xbase++

LOCAL nSuccess
LOCAL oZip
LOCAL oZip2
LOCAL oEntry

nSuccess := 0

//  ------------------------------------------------------------
//  First create a sample ZIP archive containing a small text file.

oZip := CreateObject("Chilkat.Zip")

nSuccess := oZip:NewZip("c:/temp/sampleText.zip")
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Add a small text file from memory.
nSuccess := oZip:AddString("myApp/docs/hello.txt", "Hello from a ZIP entry!", "utf-8")
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Write the ZIP archive to disk and close it.
nSuccess := oZip:WriteZipAndClose()
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  ------------------------------------------------------------
//  Now open the ZIP archive we just created.

oZip2 := CreateObject("Chilkat.Zip")

nSuccess := oZip2:OpenZip("c:/temp/sampleText.zip")
IF (nSuccess == 0)
    ? oZip2:LastErrorText
    oZip:destroy()
    oZip2:destroy()
    RETURN
ENDIF

//  Find the entry by its stored ZIP path.
oEntry := CreateObject("Chilkat.ZipEntry")

nSuccess := oZip2:EntryOf("myApp/docs/hello.txt", oEntry)

IF (nSuccess == 0)
    ? "Entry not found."
    oZip:destroy()
    oZip2:destroy()
    oEntry:destroy()
    RETURN
ENDIF

//  Extract this single entry to the base directory:
//  
//      c:/temp/extracted
//  
//  Because the entry's stored path is:
//  
//      myApp/docs/hello.txt
//  
//  the file will be extracted to:
//  
//      qa_output/extracted/myApp/docs/hello.txt
//  
//  The required subdirectories are created automatically.
nSuccess := oEntry:Extract("c:/temp/extracted")
IF (nSuccess == 0)
    ? oEntry:LastErrorText
    oZip:destroy()
    oZip2:destroy()
    oEntry:destroy()
    RETURN
ENDIF

oZip2:CloseZip()

? "Entry extracted successfully."

oZip:destroy()
oZip2:destroy()
oEntry:destroy()