DOWNLOAD de múltiplos arquivos - objeto TNMFTP
Boa tarde, pessoal do Clube do Delphi,
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
Curtidas 0