Visual FoxPro

Get ZIP Directory Information as XML

See more Zip Examples

This example demonstrates how to use the GetDirectoryAsXML method to retrieve information about the contents of a ZIP archive as an XML document.

The returned XML describes the files currently contained in the ZIP object

Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL lcXml

lnSuccess = 0

lnSuccess = 0

* Open an existing ZIP archive.
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.OpenZip("example.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Get the ZIP directory information as XML.
lcXml = loZip.GetDirectoryAsXML()

? lcXml

* Suppose the ZIP contains:

* data/config/settings.json
* docs/readme.txt
* images/logo.png

* The XML contains one element for each ZIP entry.
* Example:
* 
* <?xml version="1.0" encoding="utf-8"?>
* <zip_contents>
*     <dir name="data">
*         <dir name="config">
*             <file>settings.json</file>
*         </dir>
*     </dir>
*     <dir name="docs">
*         <file>readme.txt</file>
*     </dir>
*     <dir name="images">
*         <file>logo.png</file>
*     </dir>
* </zip_contents>

loZip.CloseZip()

? "Done."

RELEASE loZip