Platforms to show: All Mac Windows Linux Cross-Platform
/Compression/Archive/Write zip 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/Write zip Archive
This example is the version from Wed, 17th May 2016.
Project "Write zip Archive.xojo_binary_project"
Class App Inherits ConsoleApplication
EventHandler Function Run(args() as String) As Integer
dim a as new ArchiveWriterMBS
a.SetFormatZip
a.ZipSetCompressionDeflate
dim f as FolderItem = SpecialFolder.Desktop.Child("test.zip")
if not a.CreateFile(f) then
break // failed
else
dim data as string = "Hello World test file. Hello World again."
dim e as new ArchiveEntryMBS
e.PathName = "Hello World.txt"
e.Size = lenb(data)
e.Permissions = &o0644
e.FileType = e.kFileTypeRegular
a.WriteHeader e
call a.WriteData data
a.FinishEntry
a.Close
end if
End EventHandler
End Class
End Project
See also:
The items on this page are in the following plugins: MBS Compression Plugin.