Estou tentando fazer a busca de um Arquivo e quando encontrar quero que retorne a mensagem Rota do Arquivo é: "E:\Projetos\Arquivo.txt" por exemplo.
Eu já sei como fazer a busca do arquivo, mas não sei como retornar a rota completa do arquivo pesquisado. alguém sabe me dizer como fazer isso?
Eu já tentei desse modo mais não vai como eu quero.
achei esse código na internet.
function TDMG.ProcuraArquivo(const cPath, cFile: String): String;
var
Path : String;
S: String;
nRet: Integer;
Search: TSearchRec;
begin
nRet := FindFirst(cPath+'*.*', faAnyFile or faArchive or faDirectory, Search);
while nRet = 0 do
begin
if (Trim(Search.Name) <> '.') and (Trim(Search.Name) <> '..') then
begin
{ Se for um diretório, chama a função para percorrê-lo. }
if Search.Attr and faDirectory > 0 then
ProcuraArquivo(IncludeTrailingPathDelimiter(cPath+Search.Name), cFile)
{ Neste caso estamos fazendo uma busca exata, pode-se fazer um if com pos
para buscar extensões partes do nome e etc. }
else if Trim(Search.Name) = cFile then
Path := cPath+Search.Name;
end;
nRet := FindNext(Search);
end;
Result := Path;
end;
Eu estou procurando colocando C: no parâmetro 'cPath' e o nome do arquivo em 'cFile' ele até acha mais não para quando acha e quando para não retorna com a rota do arquivo para eu por na Msg.
ProcuraArquivo
na if que checa se é diretório, assimPath:= ProcuraArquivo(IncludeTrailingPathDelimiter(cPath+Search.Name), cFile)
, pois assim vai ser atribuido posteriormente paraResult := Path;
com o valor da recursão.