Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
List Files in a .zipHow 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 |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.
Mail Component · .NET Email Component · ASP Mail Component · XML Parser