Strange problems with the FTP library

Sub Globals
  Dim FTP, FTPfotos As FTP
End Sub

Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)  
  If Success = False Then
    Log(LastException)
  Else
    FTP.DownloadFile( "mftp/dat01001.zip", false, File.DirInternal&"/import", "dat01001.zip" )                                    
  End If   
End Sub

Sub FTP_DownloadProgress (ServerPath As String, TotalDownloaded As Long, Total As Long)
  DoEvents
End Sub

Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)  
  If Success = False Then 
    Log(LastException.Message)   
  else   
    Dim zz As Archiver
   zz.AsyncUnZip(File.DirInternal&"/import/","dat01001.zip", File.DirInternal&"/import/", "zz")
  End If   
End Sub

Sub zz_UnZipDone(CompletedWithoutError As Boolean, NbOfFiles As Int)   
  ProcesarDatos
End Sub         

Sub zz_UnZipProgression(Count As Int, FileName As String)
  ' Log("< "&Count&" "&FileName&" >")
End Sub

Sub btImportar_Click            
  If FTP.IsInitialized Then FTP.CloseNow      
  FTP.Initialize("FTP", "ftp.drivehq.com", 21, "auser", "apassword")
  FTP.PassiveMode = true
  FTP.List( "/" )   
End Sub

FTP.DownloadFile (cPathFile, bAscii, cDir, cFilezip)