Findfirst/Next findet Dateien/Ordner nicht!

[F.W.]

Hallöchen,

habe folgendes Prob. habe mit FindFirst und FindNext eine Procedure geschrieben, mit der man alle Dateien und Ordner finden können soll!

Delphi-Quellcode:

procedure DateiListe(Pfad, Name: String; SubDirs: Boolean;
  Attr: Integer; Ausgabe: TStrings);
var
 F1, F2: TSearchRec;
 A: Char;
begin
 Pfad := SetPfad(Pfad, True);
 if FindFirst(Pfad+Name, Attr, F1) = 0 then begin
    if (F1.Name <> '.') and (F1.Name <> '..') then begin
       Case F1.Attr of
         faDirectory : A := '+';
         faHidden    : A := '#';
         faArchive   : A := '<';
         faReadOnly  : A := '-';
         faSysFile   : A := '$';
         faVolumeID  : A := '=';
         faAnyFile   : A := '/';
       end;

       if A > '' then
          Ausgabe.Add(A+Pfad+F1.Name);

//       if ((F1.Attr and faDirectory) = faDirectory) and (SubDirs) then
          DateiListe(Pfad+SetPfad(F1.Name, True), Name, SubDirs, Attr, Ausgabe);
    end;
    While FindNext(F1) = 0 do begin
        if (F1.Name <> '.') and (F1.Name <> '..') then begin
           Case F1.Attr of
             faDirectory : A := '+';
             faHidden    : A := '#';
             faArchive   : A := '<';
             faReadOnly  : A := '-';
             faSysFile   : A := '$';
             faVolumeID  : A := '=';
             faAnyFile   : A := '/';
           end;

           if A > '' then
              Ausgabe.Add(A+Pfad+F1.Name);

//       if ((F1.Attr and faDirectory) = faDirectory) and (SubDirs) then
              DateiListe(Pfad+SetPfad(F1.Name, True), Name, SubDirs, Attr, Ausgabe);
        end;
    end;

 end;
end;

Als erstes habe ich festgestellt, wenn ich nicht "if ((F1.Attr and faDirectory) = faDirectory) and (SubDirs)" sondern nur "if (F1.Attr = faDirectory) and (SubDirs)" reinschreibe, wird schonmal viel weniger gefunden, viele Unterordner ect. Warum, ich sehe in den zwei Zeilen keinen Unterschied?

2.Versteckte Ordner werden gefunden, aber der Ordner Cookies, der nicht versteckt ist (also meiner Meinung nach nicht SO geschützt ist) wird nicht gefunden, bzw. der Ordner schon, aber der gesamte Inhalt fehlt!

Warum wird der Ordner nicht eingelesen? :gruebel:

Helft mir bitte!

[Christian Seehase]

Moin F.W.

das Feld F1.Attr ist ein Bitfeld, dass heisst jedes Bit (evtl. auch mal mehrere) hat seine Bedeutung, Du kannst also nicht auf Gleichheit prüfen, sondern musst das Bit abfragen, dass Dich gerade interessiert.

Beispiel (der Übersichtlichkeit halber mal auf Byte begrenzt):

faDirectory hat z.b. den Wert 16 also binär 00010000, faHidden den Wert 2 (00000010)
Handelt es sich also um ein verstecktes Directory, so hat Attr den Wert 00010010.
Dieser Wert ist, wie man leicht sieht ungleich faDirectory, obwohl es sich um ein Directory handelt.
Wird der Wert nun erst einmal mit faDirectory verknüpft (logisches UND) so kann man die Gleichheit prüfen.

[F.W.]

:idea: Haha! Das leuchtet ein! :thuimb:

Aber was ist nun mit den Dateien im Ordner Cookies? Warum werden die nicht gefunden?

[Christian Seehase]

Moin F.W.,

Du weisst doch, neue Frage - neuer Thread. ;-)

[MathiasSimmack]

Oder einfach die Suche empfehlen: [dp]"Cookies"[/dp]. Unter den ersten Beiträgen sind ein paar passende dabei. Dann muss man keine neue Frage stellen, sondern kann sich mit den schon vorhandenen auseinander setzen. ;)

[F.W.]

So kleinlich, passt ja sogar zum gleichen Quellcode und im Namen stehts auch!

Die Suche habe ich benutzt, auch vorher schon und wieder habe ich nichts gefunden, Threads die nicht die halbwegs passende Überschrift haben sehe ich nicht durch!