stuck with ABZipUnZip

cirollo

Active Member
Licensed User
Longtime User
Hi!
I'm still stuck in the following problem:

I download a file from a FTP, then I would like to unzip it obtaining the files inside the zip, this is what I do:

B4X:
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
    Log(ServerPath & ", Success=" & Success)
    If Success = True Then
      Msgbox("ftp download end","xxx")
      Dim myZip As ABZipUnzip
      myZip.ABUnzip(sdRoot & NFile, sdRoot)
      Msgbox("unzip process end","xxx")
   Else
      Msgbox2("Errore nella Ricezione!","McOrdini","","Ok","",LoadBitmap (File.DirAssets, "warning_256.png"))
   End If
End Sub

sdRoot = File.DirRootExternal & "/emmeci"
I cannot understand why the file is correctly downloaded, but not unzipped. Nothing happens, no errors!!!!
I tried everything but now I'm stuck!
HELP!
 
Top