Visual FoxPro

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loZip2
LOCAL loEntry

lnSuccess = 0

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

loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("c:/temp/sampleText.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Add a small text file from memory.
lnSuccess = loZip.AddString("myApp/docs/hello.txt","Hello from a ZIP entry!","utf-8")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Write the ZIP archive to disk and close it.
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

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

loZip2 = CreateObject('Chilkat.Zip')

lnSuccess = loZip2.OpenZip("c:/temp/sampleText.zip")
IF (lnSuccess = 0) THEN
    ? loZip2.LastErrorText
    RELEASE loZip
    RELEASE loZip2
    CANCEL
ENDIF

* Find the entry by its stored ZIP path.
loEntry = CreateObject('Chilkat.ZipEntry')

lnSuccess = loZip2.EntryOf("myApp/docs/hello.txt",loEntry)

IF (lnSuccess = 0) THEN
    ? "Entry not found."
    RELEASE loZip
    RELEASE loZip2
    RELEASE loEntry
    CANCEL
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.
lnSuccess = loEntry.Extract("c:/temp/extracted")
IF (lnSuccess = 0) THEN
    ? loEntry.LastErrorText
    RELEASE loZip
    RELEASE loZip2
    RELEASE loEntry
    CANCEL
ENDIF

loZip2.CloseZip()

? "Entry extracted successfully."

RELEASE loZip
RELEASE loZip2
RELEASE loEntry