Rekursive Dateisuche lässt Unterverzeichnisse aus

[Sir Rufo]

Ähm meine Aussage bezog sich auf den Code-Schnipsel von DeddyH. Meinen Code-Schnipsel habe ich in meinem Beitrag schon für ungültig erklärt.

Zitat:

Zitat von Sir Rufo (Beitrag 1278065)

Zitat:

Zitat von DeddyH (Beitrag 1278064)

Zitat:

Delphi-Quellcode:

if (Rec.Attr in [faDirectory])

Müsste das nicht so lauten?

Delphi-Quellcode:

if (Rec.Attr and faDirectory = faDirectory)

oder einfach andersherum

Delphi-Quellcode:

if ( faDirectory in Rec.Attr )

sollte auch gehen :)

Was sagt die Doku zu TSearchRec? Nö, geht doch nicht, ist nämlich kein Set ... sondern nur ein Integer

So sollte es funktionieren

Delphi-Quellcode:

if ( ( Rec.Attr and faDirectory ) = faDirectory)

[DeddyH]

Was sollen zusätzliche Klammern denn bewirken (außer, dass der Programmierer es evtl. etwas besser versteht)?

[Perlsau]

Bei mir funktioniert dieser Code schon seit vielen Jahren in zahlreichen Anwendungen absolut zuverlässig:

Delphi-Quellcode:

procedure GetFilesInDirectory(ADirectory: string; AMask: String; AList, DatList, GrossList: TStrings; ARekursiv: Boolean);
var
  SR    : TSearchRec;
  Datum : TDateTime;

begin
   ADirectory := BackShlashAmEnde(ADirectory);

   if (SysUtils.FindFirst(ADirectory + AMask,faAnyFile and not faDirectory,SR) = 0) then
   begin
      repeat
          if (SR.Name<>'.') AND (SR.Name<>'..') AND (SR.Attr<>faDirectory) then
          begin
             AList.Add(ADirectory+SR.Name);
             Datum := FileDateToDateTime(Sr.Time);
             DatList.Add(DateToStr(Datum));
             GrossList.Add(IntToStr(Sr.size));
          end;
      until SysUtils.FindNext(SR)<>0;
      SysUtils.FindClose(SR);
   end;

   if ARekursiv then
      if (SysUtils.FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
      begin
         repeat
             if (SR.Name<>'.') AND (SR.Name<>'..') then
                GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,DatList,GrossList,True);
         until FindNext(SR)<>0;
         SysUtils.FindClose(SR);
      end;
end;

In ADirectory wird das zu durchsuchende Verzeichnis angegeben.
AMask enthält die Suchmaske.
AList liefert die Dateiliste zurück.
DatList liefert die zugehörigen Datei-Datumwerte zurück.
GrossList liefert die zugehörigen Datei-Größen zurück.
ARekursiv gibt an, ob Unterverzeichnisse durchsucht werden sollen.

[DeddyH]

Kann ich mir nicht vorstellen, denn

Zitat:

Delphi-Quellcode:

SR.Attr<>faDirectory

ist definitiv falsch. faDirectory muss ja nicht als einziges Attribut gesetzt sein, es können ja noch weitere vorhanden sein (Archiv, komprimiert, versteckt, etc.)

[Dalai]

Ist schon jemandem aufgefallen, dass

Delphi-Quellcode:

FileSearches

eine

Delphi-Quellcode:

function

mit dem Rückgabetyp

Delphi-Quellcode:

TRows

ist, dessen Ergebnis für die Unterverzeichnisse weder zugewiesen noch ausgewertet wird? Das dürfte das Problem erklären. Oder verstehe ich die Rekursion falsch?

MfG Dalai

[DeddyH]

Nö, aber ich dachte, dass er mittels Debugger die gekennzeichnete Zeile als fehlerhaft ausgemacht hat. Das hat mit dem Funktionsergebnis erstmal nichts zu tun, obwohl das natürlich auch vom Compiler bemängelt werden sollte.

[Ykcim]

Hallo Zusammen,

vielen Dank für die zahlreiche Unterstützung!!!

So klappt es jetzt:

Delphi-Quellcode:

function listFiles(Pfad, FileName: string): TRows;
var   I: integer;
begin
   filename:='*'+fileName+'*';
   setlength(Result,1,0);
    for fileName in TDirectory.GetFiles(Pfad, FileName, TSearchOption.soAllDirectories) do begin
      SetLength(Result,2,Length(Result[0])+1);
      Result[0,Length(Result[0])-1]:=FileName;
   end;
end;

Ich hätte erwähnen sollen, dass TRows ein Array of Array of string ist.

@Sir Rufo
Ich hatte die eckigen Klammern vergessen, wodurch die Fehlermeldung ausgelöst wurde.

Vielen Dank nochmal
Patrick

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1278072)

Das Problem sind die fehlenden Klammern ;)

Bei was?

Wenn hier

Delphi-Quellcode:

if (Rec.Attr and faDirectory = faDirectory)

:
AND wir immer vor = aufgelöst, also passt es.

Da aber alle Dateiattribute nur aus einem Bit bestehen, kann man das noch kürzen

Delphi-Quellcode:

if (Rec.Attr and faDirectory <> 0)

Das mit dem IN klappt nicht, da Attr ein Integer und kein Set ist, außerdem sind die fa-Konstanten Bit-Masken und keine Indize.
(gut, man könnte den Integer in ein

Delphi-Quellcode:

set of 0..31

, aber dann ist noch das Problem mit den Konstanten, also wenn dann lieber direkt in ein TAttributeSet casten und als Property in TSearchRec rein)

[DeddyH]

Zitat:

Zitat von himitsu (Beitrag 1278084)

Wenn hier

Delphi-Quellcode:

if (Rec.Attr and faDirectory = faDirectory)

:
AND wir immer vor = aufgelöst, also passt es.

Muss ja so sein, denn dies

Delphi-Quellcode:

if (Rec.Attr and (faDirectory = faDirectory))

wird gar nicht kompiliert, dazu müsste man schon explizit Rec.Attr nach Boolean casten, dann ist man aber auch selbst Schuld, wenn es nicht stimmt.

Zitat:

Zitat von himitsu (Beitrag 1278084)

Da aber alle Dateiattribute nur aus einem Bit bestehen, kann man das noch kürzen

Delphi-Quellcode:

if (Rec.Attr and faDirectory <> 0)

Kann man, hat aber keinen Mehrwert. Wozu soll man sich Gedanken machen (oder nachsehen), ob wirklich alle Attribute 2er-Potenzen sind? Da bleib ich lieber bei der gezeigten Schreibweise, das passt immer, selbst wenn irgendwann mal ein mehrbittiges Attribut hinzukommen sollte.

[Sir Rufo]

@himitsu

Ja, Ja ... :)

@DeddyH

Der Code von Perusau funktioniert, denn der Such-Filter steht auf

Delphi-Quellcode:

faAnyFile and not faDirectory

.
Allerdings könnte das hier

Delphi-Quellcode:

if (SR.Name<>'.') AND (SR.Name<>'..') AND (SR.Attr<>faDirectory) then

direkt wieder raus, der dürfte nie anschlagen ;)