Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/Archive/List Files in Archive
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Compression/Archive/List Files in Archive
This example is the version from Wed, 17th May 2016.
Project "List Files in Archive.rbp"
Class App Inherits ConsoleApplication
EventHandler Function Run(args() as String) As Integer dim a as new ArchiveReaderMBS a.SupportFilterAll a.SupportFormatAll // open file dim f as FolderItem = SpecialFolder.Desktop.Child("test.zip") #if true then if not a.OpenFile(f) then Break // path invalid? end if #else // or open from memory dim b as BinaryStream = BinaryStream.Open(f) dim s as string = b.Read(b.Length) if not a.OpenData(s) then Break // problem? end if #endif dim e as ArchiveEntryMBS = a.NextHeader while e <> nil print e.PathName e = a.NextHeader wend End EventHandler
End Class
End Project

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Compression Plugin.

MBS Xojo tutorial videos