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