Fórum Objeto TNMFTP - download de múltiplos arquivos #190873
27/10/2003
0
Pessoal,
Através de um objeto da classe TNMFTP, consigo conectar em uma máquina (IP, user, password) e, posso baixar arquivo de determinado diretório (método Download).
Problema: o método Download baixa APENAS UM ARQUIVO.
Preciso baixar n arquivos, dos quais conheço apenas a extensão.
Se nomeArquivo := ´*.TXT´; não funciona e É EXATAMENTE O QUE EU QUERO.
Se nomeArquivo := ´TESTE.TXT´; funciona, MAS NÃO é suficiente.
// TRECHO
procedure TForm1.Button1Click(Sender: TObject);
var
caminho, nomeArquivo : string;
begin
nomeArquivo := ´*.TXT´;
caminho := ´C:\ARQUIVO\´;
with ftp_TESTE do
begin
Connect;
ChangeDir(´/financeiro/bkp´);
Download(´/financeiro/bkp/´+nomeArquivo, caminho+nomeArquivo);
Disconnect;
showmessage(´Arquivo(s) copiado(s) com sucesso.´);
end;
end;
Grata,
Fabiana Linden
Através de um objeto da classe TNMFTP, consigo conectar em uma máquina (IP, user, password) e, posso baixar arquivo de determinado diretório (método Download).
Problema: o método Download baixa APENAS UM ARQUIVO.
Preciso baixar n arquivos, dos quais conheço apenas a extensão.
Se nomeArquivo := ´*.TXT´; não funciona e É EXATAMENTE O QUE EU QUERO.
Se nomeArquivo := ´TESTE.TXT´; funciona, MAS NÃO é suficiente.
// TRECHO
procedure TForm1.Button1Click(Sender: TObject);
var
caminho, nomeArquivo : string;
begin
nomeArquivo := ´*.TXT´;
caminho := ´C:\ARQUIVO\´;
with ftp_TESTE do
begin
Connect;
ChangeDir(´/financeiro/bkp´);
Download(´/financeiro/bkp/´+nomeArquivo, caminho+nomeArquivo);
Disconnect;
showmessage(´Arquivo(s) copiado(s) com sucesso.´);
end;
end;
Grata,
Fabiana Linden
Falinden
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)