B4J Question Unzip under Linux

Sub Unzip_File (folder1 As String, fn As String, toFolder As String) As List
    'others.Unzip_File(File.DirApp, "1.zip", File.Combine(File.DirApp, "logs"))
    Dim L As List
    L.Initialize
    Try
        Dim zip As ABZipUnzip
        Dim zipContent As ABZipContent, counter As Int
        counter = zip.ABListZip(File.Combine(folder1, fn))   'error here
        If counter > 0 Then
            For i = 0 To counter - 1
                zipContent = zip.ABGetListItem(i)
                L.Add(zipContent.Name)
            Next
            zip.ABUnzip(File.Combine(folder1, fn), toFolder)
        End If
    Catch
        Log("Wrong ZIP: " & fn)
    End Try
    Return L
End Sub