Baixar TXT via FTP [Fechado]

Denunciar
-
Boa tarde,
Eu crio uma lista de inadimplentes, apenas o CNPJ um a um em uma lista TXT e envio para o meu FTP,
quando os usuários do me sistema fazem o login a primeira coisa que o aplicativo faz é baixar o TXT e verificar linha a linha se encontra o CNPJ do usuário, encontrando dá uma mensagem de erro pedindo para entrar em contato e o sistema Fecha.

Ocorre que em alguns casos simplesmente o TXT não é baixado, conecta ao servidor mas não baixa o arquivo TXT. Já tentei de tudo, firewall anti virus e não sei o que é.

Segue as linhas de comando que estou usando para baixar o arquivo:

WAIT WINDOW "Conectando...." NOWAIT
ERASE C:\SUPORTE\WINSER.TXT
m.obj = NEWOBJECT("acessoftp", "acessoftp.prg")
LOCAL servidor AS STRING
LOCAL nomecursor AS STRING
LOCAL usuario AS STRING
LOCAL senha AS STRING
LOCAL conectado AS Logical
  • Servidor Siscon

m.servidor = "ftp.meuservidor.com.br"
m.usuario = "usuario"
m.senha = "minhasenha"
m.conectado=m.obj.abrirftp(m.usuario, m.senha, m.servidor)
IF m.conectado
WAIT WINDOW "BAIXANDO ARQUIVO..." NOWAIT
IF m.obj.baixararquivo("ARQUIVO.TXT","C:\SUPORTE\ARQUIVO.TXT") THEN
  • O ARUIVO FOI BAIXADO COM SUCESSO
  • AQUI EU COLOCO AS LINHAS PARA FAZER ALEITURA DO ARQUIVO TXT

ENDIF
m.obj.fecharftp()
ELSE
MESSAGEBOX([FTP - Falha na conexão...],0+64,[FTP OFF Line])
ENDIF
m.obj.fecharftp()

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!