Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
|
List Files in a .zip
How to list files within a .zip LOCAL loZip LOCAL lnSuccess LOCAL n LOCAL loEntry LOCAL i loZip = CreateObject('Chilkat.Zip2') * Any string unlocks the component for the 1st 30-days. lnSuccess = loZip.UnlockComponent("30-day trial") IF (lnSuccess <> 1) THEN =MESSAGEBOX("Failed to unlock zip!") QUIT ENDIF lnSuccess = loZip.OpenZip("a.zip") IF (lnSuccess <> 1) THEN =MESSAGEBOX(loZip.LastErrorText) QUIT ENDIF * Get the number of files and directories in the .zip n = loZip.NumEntries ? STR(n) FOR i = 0 TO n - 1 loEntry = loZip.GetEntryByIndex(i) IF (loEntry.IsDirectory = 0) THEN * (the filename may include a path) ? loEntry.FileName ENDIF RELEASE loEntry NEXT |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.
Mail Component · .NET Email Component · ASP Mail Component · XML Parser