Frage zu FindFirst

[3_of_8]

Hallo! Ich will alle Dateien und Ordner in einem Verzeichnis bekommen und ich verwende dazu FindFirst und FindNext. Jetzt meine Frage:

Findet faAnyFile auch Ordner? Oder muss ich da faAnyFile+faDirectory schreiben?

Wie verhindere ich, dass FindFirst bzw. FindNext mir auch die Ordner "." und ".." liefern?

[diComm]

"." und ".." musst Du, denke ich, mit IF abfangen, so hab ich es immer gemacht...

[kalmi01]

Hi,

Delphi-Quellcode:

    procedure DirShow  (SearchDir, SearchFile : string;
                        var FileList : TStringList);
      var
        i         : Integer;
        SearchRec : TSearchRec;
      begin
        if SearchDir[Length(SearchDir)] <> '\' then SearchDir := SearchDir + '\';
        i := FindFirst(SearchDir + SearchFile, faDirectory, SearchRec);

        while i = 0
        do begin
             if (SearchRec.Name <> '.')
                and
                (SearchRec.Name <> '..')
             then begin
                    if FileExists(SearchDir + SearchRec.Name)
                    then FileList.Add(SearchDir + SearchRec.Name);
                  end;

             i := FindNext(SearchRec);
           end;
        FindClose(SearchRec);
      end;

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