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

[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;