Problem beim Auslesen eines Ordners unter Win98

[Christian Seehase]

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.