Platforms to show: All Mac Windows Linux Cross-Platform
/Compression/Archive/List Files in Archive
Required plugins for this example: MBS Compression Plugin
Last modified Tue, 21th Apr 2025.
You find this example project in your MBS Xojo Plugin download as a Xojo project file within the examples folder: /Compression/Archive/List Files in Archive
Download this example: List Files in Archive.zip
Project "List Files in Archive.xojo_binary_project"
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.Size.ToString
e = a.NextHeader
wend
End EventHandler
End Class
Sign
End Sign
End Project
Download this example: List Files in Archive.zip
The items on this page are in the following plugins: MBS Compression Plugin.
