(Visual FoxPro) Unzip a .zip Archive
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.
LOCAL loZip
LOCAL lnSuccess
LOCAL lnUnzipCount
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')
lnSuccess = loZip.OpenZip("my_files.zip")
IF (lnSuccess <> 1) THEN
? loZip.LastErrorText
RELEASE loZip
CANCEL
ENDIF
* Returns the number of files and directories unzipped.
* Unzips to /my_files, re-creating the directory tree
* from the .zip.
lnUnzipCount = loZip.Unzip("/my_files")
IF (lnUnzipCount < 0) THEN
? loZip.LastErrorText
ELSE
? "Success!"
ENDIF
RELEASE loZip
|