Ordnernamen auslesen

[BullsEye]

Hallo Leute,

Also, ich habe ein Programm, da kann ich auf Buttonklick Einträge in eine ListeBox (Liste) hinzufügen.

Delphi-Quellcode:

IF (Edit1.Text <> '') THEN
Liste.AddItem(Edit1.Text + ' (' + ComboBox1.Text + ' | '+ Label1.Caption + ' | '+ Label2.Caption + ')',Sender);
ELSE
ShowMessage('Bitte geben Sie einen Namen an!');

Und um mir die Arbeit zu erleichtern, ist mir gerade folgendes Eingefallen:

Ich will einen Pfad (C:\Medien\TestOrdner) durchsuchen. In dem Ordner sind weitere Unterordner.
Die Namen der Ordner innerhalb des Pfades soll zur Listbox (Liste) hinzugefügt werden!


ODER:

Wäre es besser, den Pfad nach bestimmten Dateitypen (*.avi|*.divX etc) zu durchsuchen und deren Namen dann zur ListBox hinzuzufügen?
Das hätte dann den Vorteil, das ich die Datei auch gleich von meinem Programm aus starten könnte.


1) Welche Lösung ist besser?
2) Bzw gibts noch ne andere Lösung die ggf noch besser ist?
3) Wie realisier ich das?

Und das ganze sollte möglichst einfach & schnell (also das Laden) sein!


Danke & gruß