faDirectory (Findfirst/Next) gibt auch Dateien zurück!

[Dannyboy]

Hä, also irgendwie bekomme ich mit dem Aufruf

Code:

Findfirst('C:\',faDirectory, F)

als Ergebnis AUCH Dateien, anstatt nur Ordner.
Auch jeder weitere Aufruf von Findnext(F) gibt mir erst mal
'ne Menge Dateien raus.

Wat is'n dat?

[himitsu]

Hab das bisher so gelöst:

Delphi-Quellcode:

IF FindFirst(Verzeichnis + '*.*', faDirectory, SR) = 0 Then Begin
  Repeat
    If (SR.Attr and faVolumeID <> 0) and (SR.Name <> '.') and (SR.Name <> '..') Then Begin

      ...

    End;
  Until FindNext(SR) <> 0;
  FindClose(SR);
End;

[neolithos]

Ich arbeite immer mit faArchive und prüfe, dann alles was ich erhalte ob es Verzeichnis ist.

Da die Attribute-Übergabe wie du gemerkt hast nicht so richtig funktioniert. Das war übrigens auch schon zu MS DOS Zeiten so.

Das Problem schein MS immer noch nicht gelöst zu haben.

[Christian Seehase]

Moin Neo,

das ist kein Problem von MS sondern von Borland.
Die API Funktion die da gekapselt wird kennt den Attributfilter nicht, sondern geht nur nach dem Dateipfad.
Ich nehm' immer faAnyfile, und filtere mir raus was ich brauche. Ginge bei FindFirstFile auch nicht anders.

[Dannyboy]

Aha, danke Jungs. Ich werde Eure Lösungswege anwenden.

(Hatte schon an meinem Verstand gezweifelt)