Example: /Compression/Old ZipMBS class/zip append

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

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.


💬 Ask a question or report a problem