Fórum DOWNLOAD de múltiplos arquivos - objeto TNMFTP #190908
27/10/2003
0
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)