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
(Classic ASP) 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.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set zip = Server.CreateObject("Chilkat_9_5_0.Zip") success = zip.OpenZip("qa_data/zips/xml_files.zip") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>" Response.End End If ' entry is a Chilkat_9_5_0.ZipEntry Set entry = zip.FirstEntry() If (zip.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "This zip archive is empty.") & "</pre>" Response.End End If finished = 0 Do While finished = 0 If (entry.IsDirectory = 0) Then Response.Write "<pre>" & Server.HTMLEncode( entry.FileName) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "(directory) " & entry.FileName) & "</pre>" 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 %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.