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 :mrgreen:

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