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
(VBScript) List Files in Zip using FirstEntry/NextEntrySee more Zip ExamplesDemonstrates how to iterate over the files and directories in a zip archive using the FirstEntry and NextEntry functions.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set zip = CreateObject("Chilkat_9_5_0.Zip") success = zip.OpenZip("qa_data/zips/xml_files.zip") If (success <> 1) Then outFile.WriteLine(zip.LastErrorText) WScript.Quit End If ' entry is a Chilkat_9_5_0.ZipEntry Set entry = zip.FirstEntry() If (zip.LastMethodSuccess = 0) Then outFile.WriteLine("This zip archive is empty.") WScript.Quit End If finished = 0 Do While finished = 0 If (entry.IsDirectory = 0) Then outFile.WriteLine(entry.FileName) Else outFile.WriteLine("(directory) " & entry.FileName) End If ' next is a Chilkat_9_5_0.ZipEntry Set next = entry.NextEntry() If (entry.LastMethodSuccess = 0) Then finished = 1 End If ' entry is a Chilkat_9_5_0.ZipEntry Set entry = next Loop ' Sample output showing both file and directory entries: ' a1.xml ' b1.xml ' c1.xml ' (directory) dir1/ ' dir1/a2.xml ' dir1/c2.xml ' (directory) dir2/ ' (directory) dir2/dir3/ ' dir2/dir3/c3.xml outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.