Tcl Requires Chilkat v11.0.0+

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

#  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