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 -.-''