Platforms to show: All Mac Windows Linux Cross-Platform
/Compression/Archive/List Files in Archive
Function:
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.
Function:
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
The items on this page are in the following plugins: MBS Compression Plugin.
Links
MBS Xojo Plugins
