Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) List Files/Directories in Zip by IndexSee more Zip ExamplesDemonstrates how to iterate over the files and directories in a zip archive by index.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim zip As New ChilkatZip Dim success As Long success = zip.OpenZip("qa_data/zips/sample.zip") If (success <> 1) Then Debug.Print zip.LastErrorText Exit Sub End If Dim numEntries As Long numEntries = zip.NumEntries Dim i As Long i = 0 Dim entry As ChilkatZipEntry Do While i < numEntries Set entry = zip.GetEntryByIndex(i) ' Note: In the ZIP file format, it is not required for a ZIP file to contain explicit directory entries. ' However, explicit directory entries can be included for convenience and compatibility with certain ZIP file processing tools and software. ' An explicit directory entry in a ZIP file is an entry that specifically represents a directory, rather than a file. ' It usually has a directory name with a trailing slash (/) and zero-length content. If (entry.IsDirectory) Then Debug.Print i & ": " & entry.FileName & " (directory)" Else Debug.Print i & ": " & entry.FileName End If i = i + 1 Loop ' Sample output: ' 0: aaa/ (directory) ' 1: aaa/pigs.json ' 2: bbb/ (directory) ' 3: bbb/base64Cert.txt ' 4: bbb/sub1/ (directory) ' 5: bbb/sub1/brasil_cert.pem ' 6: bbb/sub2/ (directory) ' 7: bbb/sub2/penguins.gif ' 8: bbb/sub2/starfish.jpg ' 9: hamlet.xml ' 10: hello.pdf zip.CloseZip |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.