Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/zip append
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/zip append
Project "zip append.rbp"
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open() // Run this app several times. // First time it creates zip archive // Second time it adds files dim z as ZipMBS dim f as FolderItem dim d as date dim info as ZipFileInfoMBS f=SpecialFolder.Desktop.Child("test.zip") dim mode as integer = ZipMBS.AppendStatusCreate if f.Exists then mode = ZipMBS.AppendStatusAddInZip end if z=new ZipMBS(f,mode) info=new ZipFileInfoMBS info.SetDate new date info.ExternalFileAttributes=0 info.InternalFileAttributes=0 info.DosDate=0 dim r as new random dim filename as string = "test "+str(r.InRange(1, 1000)) z.CreateFile filename, info, "", "", "", z.MethodDeflated, z.CompressionBestCompression z.Write "Hello World in "+filename z.CloseFile z.Close quit End EventHandler
End Class
Filetype text
End FileTypes
End Project

See also:

Feedback, Comments & Corrections

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

The biggest plugin in space...

MBS Xojo Plugins