Frage zu FindFirst

[himitsu]

Code:

[b]faAnyFile =[/b] faReadOnly or faHidden or faSystemFile or faVolumeID or [b]faDirectory[/b] or faArchive or faSymLink;

Delphi-Quellcode:

B := FindFirst('*.*', SR);
While B do Begin
  If (SR.Name <> '.') and (SR.Name <> '..') Then
    If SR.Attr and faDirectory <> 0 Then Begin
      // alle Dateien
    End Else Begin
      // alle Verzeichnisse
    End;
  B := FindNext(SR);
End;
FindClose(SR);

[add]
Na ja, zwar etwas langsam, dafür hab'sch dat wenigstens gerade selber geschrieben

Und wenn ich derzeit einen großen Fhler in 'nem anderem Modul finden würde, dann könnte ich mal erwähnen, das meine eigene FindFirst-Version "." und ".." erst garnicht mit auflistet und so'ne Abfrage überflüssig machen würde -.-''