Unterverzeichnisse durchsuchen

[alf.stefan]

hallo

müsste das nicht irgendwie so gehen

Delphi-Quellcode:

function getDir(path: string):TStrings;
var
  sr : TSearchRec;
  newPath : string;
begin
    result := TStringList.Create;
    if FindFirst(includeTrailingPathDelimiter(path)+'*.*', faAnyFile, sr) = 0 then
    repeat
      if sr.Attr = faDirectory then
      begin
          if (sr.name<>'..') and (sr.name<>'.') then
          begin
            newPath := includeTrailingPathDelimiter(path)+sr.Name;
            result.Append(newPath+sr.Name);
            result.AddStrings(getDir(newPath));
          end;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
end;

gruß

stefan