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
(DataFlex) 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.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoZip Boolean iSuccess Variant vEntry Handle hoEntry Boolean iFinished Variant vNext Handle hoNext String sTemp1 Boolean bTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatZip)) To hoZip If (Not(IsComObjectCreated(hoZip))) Begin Send CreateComObject of hoZip End Get ComOpenZip Of hoZip "qa_data/zips/xml_files.zip" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoZip To sTemp1 Showln sTemp1 Procedure_Return End Get ComFirstEntry Of hoZip To vEntry If (IsComObject(vEntry)) Begin Get Create (RefClass(cComChilkatZipEntry)) To hoEntry Set pvComObject Of hoEntry To vEntry End Get ComLastMethodSuccess Of hoZip To bTemp1 If (bTemp1 = False) Begin Showln "This zip archive is empty." Procedure_Return End Move False To iFinished While (iFinished = False) Get ComIsDirectory Of hoEntry To bTemp1 If (bTemp1 = False) Begin Get ComFileName Of hoEntry To sTemp1 Showln sTemp1 End Else Begin Get ComFileName Of hoEntry To sTemp1 Showln "(directory) " sTemp1 End Get ComNextEntry Of hoEntry To vNext If (IsComObject(vNext)) Begin Get Create (RefClass(cComChilkatZipEntry)) To hoNext Set pvComObject Of hoNext To vNext End Get ComLastMethodSuccess Of hoEntry To bTemp1 If (bTemp1 = False) Begin Move True To iFinished End Send Destroy of hoEntry Move hoNext To hoEntry 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 End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.