VBScript

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

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

success = 0

' Open an existing ZIP archive.
set zip = CreateObject("Chilkat.Zip")

success = zip.OpenZip("example.zip")
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Get the ZIP directory information as XML.
xml = zip.GetDirectoryAsXML()

outFile.WriteLine(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>

zip.CloseZip 

outFile.WriteLine("Done.")

outFile.Close