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