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 ifEnd Sub Thanks in advance friends
Yes friend exactly the problema was with the ftp server. Sorry about this silly question and thx for trying to help