Please help me FTP I can connect but....

Im creating an application and all is ok but FTP.... Im connect, setting current directory but when I list this is not working. Im showing a message to debug and I got only a empty string from a lot of files on FTP server. The code follows:

Code:

Sub btnSincronizarAgora_Click
   'ErrorLabel(ErroConexao)
     'Mensagem = "instanciando objeto"
   dfmSincronizacao_MostraMensagem("Instanciando...")
   ftp.New1
   WaitCursor(True)
   dfmSincronizacao_MostraMensagem("Conectando ao servidor...")
    ftp.Open(FTP_HOST, FTP_USUARIO, FTP_SENHA)
   dfmSincronizacao_MostraMensagem("Conectado.")
   WaitCursor(False)
   if (ftp.IsFTPConnected = True) then
      dfmSincronizacao_MostraMensagem("<<< Sincronizando >>>")
      lblConexaoServidorOK.Text = "OK"
      dfmSincronizacao_MostraMensagem("Selecionado Pasta...")
      if FTP_DIRETORIO <> "" then 
         ftp.SetCurrentDirectory(FTP_DIRETORIO)
      end if
      dfmSincronizacao_MostraMensagem("Listando...")
      WaitCursor(true)
      FTP_ARQUIVOS() = ftp.GetEntries("*.*", false)
      WaitCursor(False)
      dfmSincronizacao_MostraMensagem("Listagem OK")
      for i = 0 to ArrayLen(FTP_ARQUIVOS()) -1 step 3
         sFileName = FTP_ARQUIVOS(i)
         sData      = FTP_ARQUIVOS(i+1)
         sSize       = FTP_ARQUIVOS(i+2)
           erro(sFileName)
      next
      ftp.Close    
   end if
End Sub

Thanks in advance friends

 

Your code is working fine for me (desktop test only).
Did you check your ftp server with DOS ftp?

 

Yes friend exactly the problema was with the ftp server. Sorry about this silly question and thx for trying to help