![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java JavaScript Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) Iterate Over ZIP Entries Using EntryAt This example demonstrates how to use the The This is useful for:
Suppose the ZIP archive contains: The example loops through all ZIP entries and prints information about each entry. Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean success = False success = False // Open an existing ZIP archive. Dim zip As New Chilkat.Zip success = zip.OpenZip("example.zip") If (success = False) Then System.DebugLog(zip.LastErrorText) Return End If // Get the total number of entries in the ZIP archive. Dim numEntries As Int32 numEntries = zip.NumEntries System.DebugLog("Number of ZIP entries = " + Str(numEntries)) // Create a ZipEntry object that will be reused // for each entry retrieved by EntryAt. Dim entry As New Chilkat.ZipEntry // Iterate over all ZIP entries. Dim i As Int32 i = 0 While i < numEntries // Retrieve the entry at index i. success = zip.EntryAt(i,entry) If (success = False) Then System.DebugLog(zip.LastErrorText) Return End If System.DebugLog("Entry " + Str(i)) System.DebugLog(" FileName: " + entry.FileName) System.DebugLog(" Uncompressed Length: " + Str(entry.UncompressedLength)) System.DebugLog(" Compressed Length: " + Str(entry.CompressedLength)) System.DebugLog("") i = i + 1 Wend // Sample output: // // Entry 0 // FileName: docs/readme.txt // Uncompressed Length: 1204 // Compressed Length: 512 // // Entry 1 // FileName: images/logo.png // Uncompressed Length: 84211 // Compressed Length: 84102 // zip.CloseZip System.DebugLog("Done.") |
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.