Alle Verezeichnisse auflisten (mit unterverzeichnisse)

[vollmer-net]

Hi,,


mit diesem Code kann ich mir alle Verzeichnnisse auflisten:

Delphi-Quellcode:

procedure GetDirs(RootDir: string; dirlist: TStrings); 
var 
  search: TSearchRec; 
  ts: TStringList; 
begin 
  ts := TStringList.Create; 
  try 
    if FindFirst(RootDir + '*.*', faDirectory, search) = 0 then 
    begin 
      repeat 
        if ((search.Attr and faDirectory) = faDirectory) and 
            (search.Name <> '.') and (search.Name <> '..') then 
          ts.Add(search.Name); 
      until FindNext(search) <> 0; 
      FindClose(search); 
    end; 
    ts.sort; 
    dirlist.Text := ts.Text; 
  finally 
    ts.Free; 
  end; 
end;

Leider gibt er mir keiner Unterverzeichnisse der Verzeichnisse aus, weil ich keine rekursion eingebaut habe....Wie genau müsste die Funktion aussehen?

Gruß

Alex

[SirThornberry]

an dieser Stelle muss die Recursion rein

Delphi-Quellcode:

        if ((search.Attr and faDirectory) = faDirectory) and 
            (search.Name <> '.') and (search.Name <> '..') then 
          ts.Add(search.Name);

und zwar in etwa so

Delphi-Quellcode:

        if ((search.Attr and faDirectory) = faDirectory) and 
            (search.Name <> '.') and (search.Name <> '..') then
        begin 
          ts.Add(RootDir + '\' + search.Name); //rootDir vorangestellt damit du auch weist in welchem Ordner der gefundene Ordner ist
          GetDirs(RootDir + '\' search.Name; dirlist);
        end;