Tcl

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

Tcl

load ./chilkat.dll

set success 0

set success 0

# Open an existing ZIP archive.
set zip [new_CkZip]

set success [CkZip_OpenZip $zip "example.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Get the ZIP directory information as XML.
set xml [CkZip_getDirectoryAsXML $zip]

puts "$xml"

# 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>

CkZip_CloseZip $zip

puts "Done."

delete_CkZip $zip