Moin Christian,
also hat man in Unterordnern sozusagen immer versteckte(?) Ordner die auf den übergeordneten verweisen, richtig? Wenn das so ist, müsste das ganze dann nicht in einer Endlosschleife enden? Ich meine die Ordner würden ja immer wieder auf den anderen zeigen?
@Thema: Ich habe meinen Code nun so:
Delphi-Quellcode:
procedure GetFiles(const Path: string);
var
SearchRec: TSearchRec;
p: string;
begin
p := path + '*.*';
if FindFirst(p, faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
GetFiles(Path + SearchRec.Name + '\');
end
else Form1.Memo1.Lines.Add(SearchRec.Name);
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
Ist daran immernoch was falsch? Weil komischer weise, bekomme ich am Ende der Suche:
Zitat:
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
desktop.ini
INFO2
Das kann nicht stimmen