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

vinians

Member
Licensed User
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:

B4X:
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
 

dzt

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

vinians

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