Frage mal wieder!

[IOAH]

Hi Leutz!

Ich war schon vor paar Wochen mit einem ähnlichen Problem hier, aber jetzt hab ich mal eine Frage. Ich hab eine prozedur programmiert, die mir nur die Dateien (!) eines gesamten Laufwerks ausgeben soll... Aber irgendwie ist in meinem Script der Wurm drin und er gibt mir nur die Dateien des Stammordners aus... Schaut es euch bitte an, vielleicht findet ihr ja einen Fehler...

Code:

procedure suchedeninhalt(path:string;memo:tmemo);
var
  searchResult : TSearchRec;

begin
if FindFirst(path+'*.*', faanyfile, searchResult) = 0 then
  begin
    repeat
      if (searchresult.Attr and fadirectory)=0 then
      memo.Lines.Add(searchresult.Name);
    until FindNext(searchResult) <> 0;
  FindClose(searchResult);
  end;
end;

Vielen Dank schonmal

Greez, IOAH