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.