ActiveDelphi

[Zydanerr]

Bem estou com um problema em desenvolver um código que localize todos os arquivos solicitado por nome ou ext.

Como funciona no pesquisar do windows: Digita-se o nome ou ext e ele retorna uma lista de todos os arquivos com o nome ou com a ext, percorrendo pasta atual e subpastas.


Desde já obrigado.

Att,
Winston

[joemil]

da uma olhada neste artigo:

http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=779
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[Zydanerr]

Ótimo mesmo esse código...
Ele procura na pasta atual, blz! Agora como poderemos fazer pra ele buscar também nas subpastas?

procedure procurar(diretorio, pesquisa: string; listaRetorno: Tlistbox);
var
f: TSearchRec;
r: integer;
begin
if diretorio[length(diretorio)]<>'\' then
diretorio := diretorio+'\';

if not DirectoryExists(diretorio) then
exit;

r := FindFirst(diretorio+pesquisa,faAnyFile,f);
while (r=0) do
begin
r := FindNext(f);

if (f.Name = '.') or (f.Name='..') then
Continue;

if f.Attr = fadirectory then
procurar(diretorio+f.Name,pesquisa,listaRetorno)
else
begin
listaRetorno.Items.Add(diretorio+f.Name);
end;
end;

end;

Código Publicado por jumper



Att,

Winston

[joemil]

essa funcao usa recursividade pra procurar nas subpastas, ou seja, qdo ele encontra uma subpasta, ele se "auto chama"
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[emersonfc]

Eu sei que o tópico já é antigo, mas sei que pode ser útil pra alguém que queira usar essa informação, assim como foi pra mim.

No post acima com a solução, está listando o próximo antes de exibir o primeiro.
Abaixo a correção.

procedure procurar(diretorio, pesquisa: string; listaRetorno: Tlistbox);
var
f: TSearchRec;
r: integer;
begin
if diretorio[length(diretorio)]<>'\' then
diretorio := diretorio+'\';

if not DirectoryExists(diretorio) then
exit;

r := FindFirst(diretorio+pesquisa,faAnyFile,f);
while (r=0) do
begin


if (f.Name = '.') or (f.Name='..') then
Continue;

if f.Attr = fadirectory then
procurar(diretorio+f.Name,pesquisa,listaRetorno)
else
begin
listaRetorno.Items.Add(diretorio+f.Name);
end;

r := FindNext(f);
end;

end;