{Listando Pastas e Subpastas}

Irei ensinar como listar pastas e subpastas de um certo diretório.

Componentes

• Um Button
• Um Listbox

Função

Será usada a função SubDiretorios que deve ser inserido no local onde você preferir do código do seu programa:

procedure SubDiretorios(Diretorio: string; Lista: TStrings);

var

  SearchRec: TSearchRec;

begin

  if FindFirst(Diretorio + '*.*', faDirectory, SearchRec) = 0 then

    	repeat

      	if (SearchRec.Attr and faDirectory = faDirectory) and

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

         		begin

                    	Lista.Add(Diretorio + SearchRec.Name + '\');

                    	SubDiretorios(Diretorio + SearchRec.Name + '\', Lista);

         		end;

    	until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);

end;

Agora para chamar a função insira este cógido no button:

SubDiretorios('Diretorio da pasta',Listbox1.Items);

No local Diretorio da Pasta você coloca o diretório que quer ou pode usar funções como: ExtractFilePath(Application.exename) (Pega o diretório do programa), entre outros códigos.

ngm usa delphi aki vei

UAIHSUASHAU

se fica postando esses seus tutos atoa

mas rep+

Bom, depois disso não posto mais. E também não vou postar nada de VB pois o povo ta vindo aqui só pra ctrl+c e ctrl+v e não querem saber de lógica querem ficar dependentes de outras pessoas mas sem aprender nada.