Platforms to show: All Mac Windows Linux Cross-Platform

/Compression/Old ZipMBS class/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/Old ZipMBS class/zip append

This example is the version from Sun, 17th Mar 2012.

Project "zip append.xojo_binary_project"
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
FileTypes
Filetype text
End FileTypes
End Project

See also:

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


The biggest plugin in space...