Verzeichnissliste in Listbox

[torud]

Mein Problem ist, dass ich nicht wirklich rekursiv suchen will sondern nur alle direkten Unterordner eines Verzeichnisses finden will.

Ich habe es jetzt mal so probiert, aber es will mir einfach nicht gelingen...

Delphi-Quellcode:

procedure GetDirectoriesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean);
var
  SR: TSearchRec;
begin
  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if SR.Attr and faDirectory = faDirectory then
          AList.Add(sr.Name);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

Ich erhalte alle Unterordner aber auch 2 Einträge mit . und ..