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;