Alle Dateien aus einem gewählten Verzeichnis

[Yheeky]

Hi,

wie kann ich Dateien mit einer bestimmten Endung aus einem gewählten Verzeichnis zu einer ListBox hinzufügen?

Hier der Code, mit dem ich das Verzeichnis auswähle:

Code:

var Pfad : String;
begin
SelectDirectory('Pfad wählen','',Pfad );

end;

Gruß Yheeky

[jbg]

Mit FindFirst/FindNext/FindClose

Code:

[b]var[/b] sr: TSearchRec;
[b]if[/b] FindFirst(Pfad + '*.txt', faAnyFile [b]and not[/b] faDirectory, SearchRec) = 0 [b]then
try
  repeat[/b]
    ListBox1.Items.Add(sr.Name);
  [b]until[/b] FindNext(sr) <> 0;
[b]finally[/b]
  FindClose(sr);
[b]end[/b];

[Yheeky]

Cool 8) , Danke!

Gruß Yheeky