Procurar Arquivo

[Vivendo&Aprendendo]

E ae galera...

Como faço para procurar por um arquivo em todo o HD... tipo a pesquisa do windows mas pelo DELPHI... tipo assim tenho um arquivo que quero encontrar, poid não sei onde ele se encontra então pesquiso em todo o HD e quando ele encontrar me fornece uma mensagem indicando onde esta o arquivo.

falou

Alexandre

[s3c]

Veja as funções:

FindFirst

FindNext

FindClose

Veja tb a estrutura: TSearchRec

[Vivendo&Aprendendo]

Não entendi será que pode me explicar melhor...

falou

Alexandre

[s3c]

você já viu aquelas funções ?

Elas retornam arquivos e pastas. Para o que você quer, acho que terá que utilizar essas funções dentro de uma função recursiva p/ vecrificar as sub-pastas.

Uma dica é você somente ler as pastas e utilizar a função FileExists p/ localizar os arquivos desejados.

[Vivendo&Aprendendo]

cara ainda não conheço aquelas funções para fazer isso... será que pode me ajudar...

falou

Alexandre

[s3c]

Este é um exemplo simples que varre as pastas de C:\ e procura System.ini.

Coloque dois TMemo no Form.

var iRet:Integer; TS:TSearchRec; sVol,sDir,sArq:String;
begin
  sVol := 'c:';
  sDir := '\';
  sArq := 'System.ini';
  if FileExists(sVol+sDir+sArq) then
    Memo2.Lines.Add(sVol+sDir+sArq);
  iRet := FindFirst(sVol+sDir+'*.*', faDirectory+faReadOnly+faHidden, TS);
  While iRet = 0 do
  begin
    if (TS.Attr and faDirectory) > 0 then
    begin
      Memo1.Lines.Add(TS.Name);
      if FileExists(sVol+sDir+TS.Name+'\'+sArq) then
        Memo2.Lines.Add(sVol+sDir+TS.Name+'\'+sArq);
    end;
    iRet := FindNext(TS);
  end;
  FindClose(TS);
end;

Só p/ você ter uma idéia de como funciona.

Para varrer as sub-pastas, você terá que implementar recursividade neste código.

[Vivendo&Aprendendo]

cara vlw pela dica e pelo código, agora para procurar dentro das pastas você disse:

Para varrer as sub-pastas, você terá que implementar recursividade neste código.

Desculpe a encheção mas como é isso?

Alexandre

[s3c]

Recursividade é uma função ou uma procedure que chama ela mesma.

Por ex, você listou as pastas em primeiro nível certo ?

Aí p/ cada pasta você executa a mesma função passando como parâmetro a pasta retornada. É como você clicar numa pasta dentro da outra até chegar ao final.

Se você errar num código recursivo, geralmente dará um erro de Stack Overflow.