[Resolvido] Localizar pasta

[EricaRosana 0]

Bom dia galera!!! uma ótima semana para tds!!!

Como que eu faço para localizar uma pasta dentro do C: e retornar o(s) caminho(s) onde essa pasta se encontra(igual o localizar do windows)?

 

Se alguém puder me ajudar, fico muito agradecida.

 

at,

Érica

[Raficcha 1]

Ow, entom, tentei postar antes, mas acho que não foi. Bom, é ai que entra a programação. Você tem que criar uma rotina que faça isso ou localizar um pronta..

 

: D

[EricaRosana 0]

Fiz várias pesquisas e ainda não encontrei nada pronto ou algo que me ajude a criar...

se alguém solber de algo que possa me ajudar... agradeço....

vou continuar minhas buscas...

at,

Érica

[quintelab 91]

Raficcha eu tinha excluido seu post. Ele não tem muito sentido concorda.

Penso eu se o usuário esta postando em Delphi, ele sabe que envolve programação, postar para ele fazer uma busca no google não é uma resposta construtiva para o tópico.

[Raficcha 1]

ow Quintelab, mas desculpa-me então. O que eu quis passar no post, não foi a impressão de que sou grosseiro (assumo, o meu post não ta lgl msm, fico meio feio.. hehe ..mas vim para consertar), o que eu quis passar foi que algumas coisas não estão prontas e com um pouco de pesquisa conseguimos fazer.

 

Devo um pedido de desculpas a EricaRosana.

 

Mas voltando ao problema da Érica. Dei uma olhada nos meus arquivos e econtrei uma uma função que acho que vai ajuda-la. Ela é uma função que varre o disco recursivamente. Não é minha, consegui depois de algumas pesquisas. Estou utilizando ela para criar uma função (de autoria minha) para fazer esatamente o que a erica esta precisando, porem ainda não me sobrou muito tempo livre para dar inicio.

 

mas vou postar a função .. não sei quem é o autor, mas acho que não tem problema em postar aqui

 

procedure GetDirList(Directory: String; var Result: TStrings;
SubPastas: Boolean);
var
   Sr : TSearchRec;

   procedure Recursive(Dir : String); { Sub Procedure, Recursiva }
   var
      SrAux : TSearchRec;
   begin
     if SrAux.Name = EmptyStr then
        FindFirst(Directory + '\' + Dir + '\*.*', faDirectory, SrAux);
     while FindNext(SrAux) = 0 do
        if SrAux.Name <> '..' then
           if DirectoryExists(Directory + '\' + Dir + '\' + SrAux.Name) then
           begin
              Result.Add(Directory + '\' + Dir + '\' + SrAux.Name);
              Recursive(Dir + '\' + SrAux.Name);
           end;
   end;
begin
   FindFirst(Directory + '\*.*', faDirectory, Sr);
   while FindNext(Sr) = 0 do
   if Sr.Name <> '..' then
   if DirectoryExists(Directory + '\' + Sr.Name) then
   begin
      Result.Add(Directory+'\'+Sr.Name);

      if SubPastas then
         Recursive(Sr.Name);
   end;

end;

Bom Erica, ja entramos em contato por e-mail, qualquer coisa a mais que eu puder ajudar, você pode entrar em contato por e-email ou vim aqui no Imasters msm.. Desculpa ai de antes, a minha intenção não foi de ofender nem chingar ninguem, apenas não usei as palavras certas

[EricaRosana 0]

Boa tarde galera!!!!

 

Desculpa a demora em responder... mas eu estava super enrolada....

 

Raficcha você está desculpado!!!estamos aq para aprender e compartilhar conhecimento... então... bola pra frente...

e eu consegui fazer a rotina que eu precisava em cima dessa função recursiva!!!

 

Está resolvido!!!

 

Muito obrigada a todos!!

At,

Érica.