SubDiretorios

Usa esse código:

[b:8edf674622]var[/b:8edf674622]
Sr: TSearchRec;
ret: integer;
[b:8edf674622]begin[/b:8edf674622]
ret:=FindFirst(´C:\Pasta\*.*´,faDirectory, Sr);
[b:8edf674622]while[/b:8edf674622](ret = 0) [b:8edf674622]do[/b:8edf674622]
[b:8edf674622]begin[/b:8edf674622]
[b:8edf674622]if [/b:8edf674622]Sr.Attr = faDirectory [b:8edf674622]then[/b:8edf674622]
ListBox1.Items.Add(Srec.Name);
ret := FindNext(Sr);
[b:8edf674622]end;[/b:8edf674622]

Com ele voce lista todos os subdiretórios da Pasta
[color=red:8edf674622]Atenção: Você tem que colocar o *.* depois da Pasta![/color:8edf674622]