Zitat:
Irgendwas mit "faDirectory", oder?
genau
Delphi-Quellcode:
if FindFirst(sPath, faAnyFile, SearchRec) = 0 then
begin
repeat
// handelt es sich um ein Verzeichnis?
if (SearchRec.Attr and faDirectory) = faDirectory then
begin
if (SearchRec.Name <> '.') and
(SearchRec.Name <> '..') then
doSomething();
end;
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec); // wird benötigt um den Speicher wieder freizugeben
end;
Als kleiner Tip, nutze die TWin32FindData-Struktur, das ganze läuft ein wenig schneller, da direkt mit Windows-
Api-Funktionen gearbeitet wird. Die Funktionen der Sysutils setzen ja nur darauf auf.