Como localizar arquivos...
26/12/2005
0
Como localizar arquivos...
Max.sgj
Curtir tópico
+ 0
Responder
Posts
26/12/2005
Eixox
Procure no site do clube delphi que existe uma aplicação que foi feita para realizar pequisa de arquivos e fazer uma certa conversão.
O problema é que a bagaça é só para assinante, sacou?
O problema é que a bagaça é só para assinante, sacou?
Responder
27/12/2005
Lehapan
var
Search: TSearchRec;
Done: Boolean;
Lista: TStringList;
begin
Lista := TStringList.Create;
Done := FindFirst(´C:\*.txt´, [b:208ed56a42]faArchive[/b:208ed56a42], Search) <> 0;
while not Done do
begin
Lista.Add(´C:\´ + Search.Name);
Done := FindNext(Search) <> 0;
end;
FindClose(Search);
end;
Procure no help do delphi sobre [b:208ed56a42]faArchive[/b:208ed56a42] e ele te mostrará algumas outras funcionalidades, como listar também os diretórios, etc...
Search: TSearchRec;
Done: Boolean;
Lista: TStringList;
begin
Lista := TStringList.Create;
Done := FindFirst(´C:\*.txt´, [b:208ed56a42]faArchive[/b:208ed56a42], Search) <> 0;
while not Done do
begin
Lista.Add(´C:\´ + Search.Name);
Done := FindNext(Search) <> 0;
end;
FindClose(Search);
end;
Procure no help do delphi sobre [b:208ed56a42]faArchive[/b:208ed56a42] e ele te mostrará algumas outras funcionalidades, como listar também os diretórios, etc...
Responder
Clique aqui para fazer login e interagir na Comunidade :)