Moin Rockycat,
If (SearchRec.Attr and faDirectory) = 0 then
Jede Datei hat einige grundlegende Attribute, die in TSearchRec.Attr übergeben werden.
Mit
SearchRec.Attr and faDirectory
wird der ausgelesene Wert mit der Maske faDirectory verknüpft, so dass man entscheiden kann, ob es sich bei dem gefundenen Wert um ein Verzeichnis handelt, oder nicht.
Delphi-Quellcode:
// Wahr, wenn kein Verzeichnis
If (SearchRec.Attr and faDirectory) = 0 then
Delphi-Quellcode:
// Wahr, wenn Verzeichnis
If (SearchRec.Attr and faDirectory) = faDirectory then
// ginge auch, grundsätzlich wäre die obere Variante sicherer (bei zusammengesetzten Masken)
If (SearchRec.Attr and faDirectory) <> 0 then
Um nun also die Verzeichnisnamen auszulesen müsstest Du also nur die Abfrage weglassen.
Zudem solltest Du mit den Suchbegriffen
FindFirst FindNext FindClose reichlich Beispiele dafür finden können.