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