Platforms to show: All Mac Windows Linux Cross-Platform
/Compression/Archive/List Files in Archive
Required plugins for this example: MBS Compression Plugin
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.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 = a.NextHeader
wend
End EventHandler
End Class
End Project
The items on this page are in the following plugins: MBS Compression Plugin.