Procurando um arquivo...

[plinho_v 0]

Ola,eu gostaria de saber se da pra procurar um arquivo no hd, e retornar o caminho ateh ele... vlw

[@beto 0]

Fala ai....

 

 

acho que você ta procurando isso

 

 

Localizando um arquivo

 

// Procura arquivo no diretório e/ou nos subdiretórios do path informado

function FileExistsSomewhere(FileName : String; var Path : String) : Boolean;

var

SearchRec: TSearchRec;

I : Integer;

NextPath : String;

begin

// assume failure

Result := False;

 

 

// Acrescente '\' ao final do Path

Path := Trim(Path);

if Path[Length(Path)] <> '\' then

Path := Path + '\';

 

 

// Tente encontrar o arquivo no diretório corrente

if FindFirst(Path + Filename, faAnyFile, SearchRec) = 0 then

// Se encontrou, cai fora

Result := True

else

begin

// Verifique todos subdiretórios

FindClose(SearchRec);

I := FindFirst(Path + '*.*', faDirectory, SearchRec);

 

 

// Se Result = True pare, o arquivo foi encontrado.

// Caso contrário procure pelo arquivo em todos os subdiretórios

while (I = 0) and (not Result) do

begin

// Em cada subdiretório procure pelo arquivo desprezando '.' e '..'

if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then

begin

NextPath := Path + SearchRec.Name + '\';

Result := FileExistsSomewhere(Filename, NextPath);

 

 

// Se encontrou o arquivo atribui à variavel de retorno

if Result then

Path := NextPath;

end;

I := FindNext(SearchRec);

 

 

// Para processar as mensagens e não blopquear o programa

Application.ProcessMessages;

end;

FindClose(SearchRec);

end;

 

 

// Se não encontrou o arquivo limpa variável de retorno

if not Result then

Path := '';

end;

 

 

beleza..

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif