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 ..