Unterordner auslesen

[S4SH1981]

Hallo zusammen,

ich lese mit folgendem Code das Arbeitsverzeichnis meines Programmes aus.

Delphi-Quellcode:

function GetApplicationDirectory: string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  getapplicationdirectory;
  shelltreeview1.Root := getapplicationdirectory;
end;

In diesem Ordner befinden sich dazu noch Unterordner.

Ich möchte jetzt nun in einer Combobox die Unterordner auslesen, weiß aber nicht wie ich das simpel anstelle.
Bitte daher um eure Hilfe.

Gruß S4SH

[scrat1979]

Suche im Forum mal nach Dateisuche / rekursiv / FindFirst / FindNext, dann wirst Du fündig, in der Codelib findet sich auch ein Eintrag dazu!!

Viel Glück...

// EDIT: Habe gerade das und dies für Dich in der CodeLib gefunden, damit müsstest Du es ganz einfach schaffen!

[S4SH1981]

Schonmal Danke für deine Hilfe scrat.
Aber mein Problem ist mit deinen beiden Tipps nicht wie erwünscht gelöst.
Diese beiden Artikel habe ich auch schon gefunden.

Ich möchte nur die Namen der Unterordner auflisten, die Dateien die da drin sind, sind mir relativ egal.

[OG Karotte]

Dann übergehe sie doch einfach (über den entspr. Attr-Wert).

Solltest Du D2009 Dein Eigen nennen, dann ist da ein entpsr. Beispiel in der Hilfe.

[scrat1979]

Im Anhang findest Du eine etwas ältere Komponente von mir, die ich für die Datei und Verzeichnissuche geschrieben habe. Der Source müsste Dich zur Lösung bringen...