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

[vinians]

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:

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]

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

 

[vinians]

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