#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#AdditionalJar: zip4j-2.11.1.jar
#End Region
Sub Process_Globals
Private MainForm As Form
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Button1_Click
zip("E:/Temp/Waffle.jpg", "E:/Temp/Waffle.zip") ' Test sample
End Sub
Public Sub zip(filename As String, zipFile As String)
Dim zipper As JavaObject
Dim constants As JavaObject
zipper.InitializeNewInstance("net.lingala.zip4j.core.ZipFile", Array(zipFile))
constants.InitializeStatic("net.lingala.zip4j.util.Zip4jConstants")
zipper.RunMethod("addFile", Array(filename))
End Sub