 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
StraightFree
Novato
Registrado: Sexta-Feira, 17 de Julho de 2015
Mensagens: 86
|
 Enviada: Sex Abr 06, 2018 3:17 pm Assunto: Localizar arquivo em Pastas, Subpastas |
 |
|
Fala galera do AD,
Venho mais uma vez pedir a ajuda dos feras do forum.
Estou precisando localizar um determinado arquivo em um diretório e nas subpastas. Procurei na internet e as soluções que achei não me atenderam 100%.
Na rotina vou passar o nome do arquivo e pasta raiz onde se encontram os arquivos e subpastas. A function deve me retornar a localização desse arquivo.
Alguem poderia ma ajudar a criar essa function?
Qualquer ajuda será bem vinda.
Obrigado! |
|
| Voltar ao Topo |
|
 |
StraightFree
Novato
Registrado: Sexta-Feira, 17 de Julho de 2015
Mensagens: 86
|
| Enviada: Sex Abr 06, 2018 3:42 pm Assunto: |
|
|
Postando a solução:
| Código: | procedure TForm1.procurar(const PathName, FileName : string; const InDir : boolean);
var Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
ListBox1.Items.Add(Path + Rec.Name);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) <> 0) and (Rec.Name<>'.') and (Rec.Name<>'..') then
procurar(Path + Rec.Name, FileName, True);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end; //procedimento |
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
