Como listar Sub-pastas de uma pasta em um listbox?

Question

Boa noite pessoal,Como fa�o para o Delphi exibir em um listbox todas as pastas de uma determinada pasta.Ex:Listar as pastas de nomes de frutas que estao dentro da pasta Frutas.??Muito obrigado....

Danielrsanches · Answer

coloque um componente TDirectoryListBox (paleta Win 3.1)
coloque um componente TListBox (paleta Standard)

procedure TForm1.Button1Click(Sender: TObject);
var
I: word;
begin
        ListBox1.Clear;
        DirectoryListBox1.Directory:= �C:\Frutas�;
        For I:=1 to DirectoryListBox1.Count-1 do
        begin
                ListBox1.Items.Add(DirectoryListBox1.Items.Strings[I]);
        end;
end;

abra�os !!!

Carloacpk · Answer

Caro colega Daniel,muito obrigado mesmo, n�o sabe como me ajudou...estava com uma fun��o gigantesca pra fazer isto... reduziu consideravelmente.Muito obrigado....

F�rum Como listar Sub-pastas de uma pasta em um listbox? #371598