Líderes

{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.

DESCLASSIFICADO!

[CONTEUDO CONTAMINADO] [LINK REMOVIDO] [uSUARIO SUSPENSO]