Xbase++

Unzip a .zip Archive

See more Zip Examples

Demonstrates how to open a .zip archive and unzip. The Unzip method extracts the files and directories from a .zip archive and recreates the directory tree rooted at the directory path passed to Unzip. Xbase++

LOCAL nSuccess
LOCAL oZip
LOCAL nUnzipCount

nSuccess := 0

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

oZip := CreateObject("Chilkat.Zip")

nSuccess := oZip:OpenZip("my_files.zip")
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  Returns the number of files and directories unzipped.
//  Unzips to /my_files, re-creating the directory tree
//  from the .zip.
nUnzipCount := oZip:Unzip("/my_files")
IF (nUnzipCount < 0)
    ? oZip:LastErrorText
ELSE
    ? "Success!"
ENDIF

oZip:destroy()