Bug? MakeB4XLib - Building libraries by ZIP4j

#Region MakeB4XLib
Sub MakeB4XLIB (inDir As String, outDir As String, zipFilename As String) As ResumableSub
Try
    If File.Exists(outDir,zipFilename) Then
        File.Delete(outDir,zipFilename)
    Else
        If inDir.Length = 0 Or outDir.Length = 0 Or zipFilename.Length = 0 Then
            cutils.ShowNotification3("WARNING !", "Fill out the fields required.", cutils.ICON_WARNING, MainForm, "BOTTOM_RIGHT", 2000)
            TextField3.RequestFocus
            Return False
        End If
    End If
 
    Dim zipFile As JavaObject
    zipFile.InitializeNewInstance("net.lingala.zip4j.core.ZipFile",Array(File.Combine(outDir,zipFilename)))
    Dim constants As JavaObject
    constants.InitializeStatic("net.lingala.zip4j.util.Zip4jConstants")
    Dim params As JavaObject
    params.InitializeNewInstance("net.lingala.zip4j.model.ZipParameters",Null)
    params.RunMethod("setCompressionMethod",Array(constants.GetField("COMP_DEFLATE")))
    params.RunMethod("setCompressionLevel",Array(constants.GetField("DEFLATE_LEVEL_NORMAL")))
 
    For Each ci As CheckboxTreeItem In tvFiles.Root.Children
        If ci.Checked Then
            Dim tmpFileName As String = ci.Text.tolowercase
            Dim path As String
            path=File.Combine(TextField1.Text,ci.Text)
            If File.IsDirectory(TextField1.Text,ci.Text) And tmpFileName = "files" Then
                zipFile.RunMethod("addFolder",Array(path,params))
            Else
                If tmpFileName.EndsWith(".bas") Or tmpFileName = "manifest.txt" Then
                    zipFile.RunMethod("addFile",Array(getFile(path),params))
                End If
            End If
        End If
    Next
    Return True
Catch
    cutils.ShowNotification3("ERROR !", LastException.Message, cutils.ICON_ERROR, MainForm, "BOTTOM_RIGHT", 10000)
    Return False
End Try
End Sub

Sub getFile (path As String) As JavaObject
    Dim fileJO As JavaObject
    fileJO.InitializeNewInstance("java.io.File", Array(path))
    Return fileJO
End Sub
#End Region

Public Sub JDKPathExists As Boolean
    Dim jHome As String = GetSystemProperty("java.home", "")
    Log(jHome)
    If File.Exists(jHome, "..\bin\jar.exe") Then
        JDKPath = File.Combine(jHome, "..\bin\jar.exe")
        Return True
    Else
        If jHome.EndsWith("jre") = False Then
            jHome = jHome.Replace("jre","jdk")
        End If
        Log("Exists " & File.Combine(File.Combine(jHome,"bin"),"jar.exe") & " : " &  File.Exists(File.Combine(jHome,"bin"),"jar.exe"))
        If File.Exists(File.Combine(jHome,"bin"),"jar.exe") Then
            JDKPath = File.Combine(jHome, "bin/jar.exe")
            Return True
        End If
    End If
    Return False
End Sub