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

Delphi

24/06/2009

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.


Carloacpk

Carloacpk

Curtidas 0

Respostas

Danielrsanches

Danielrsanches

24/06/2009

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 !!!


GOSTEI 0
Carloacpk

Carloacpk

24/06/2009

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.


GOSTEI 0
POSTAR