Rekursive Dateisuche lässt Unterverzeichnisse aus

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

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 FileSearches eine function mit dem Rückgabetyp 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

[Der schöne Günther]

Zitat von Ykcim:

So klappt es jetzt:

Pascal-Leute sind ja immer wahre Performance-Freaks, deshalb noch ein paar Hinweise:

• Die Variable "i" wird nicht verwendet
• Der Parameter "Pfad" wird nicht geändert und kann mit "const" markiert werden
• Das ständige SetLength sorgt nicht nur dafür dass das Array ständig im Speicher kopiert und hin und her wandert, sondern ist auch total unverständlich zu lesen. Speicher dir doch einmal das was GetFiles(..) zurückgibt in einem StringArray und stecke das dann anschließend in dein Result.

Ich habe SetLength(..) noch nie mit zwei Parametern gesehen. Ich habe auch, glaube ich, noch nie mehrdimensionale Arrays benutzt. Deshalb kann es auch sein, dass ich die Intention dahinter nicht verstehe.



PS: So würde ich es schreiben

Delphi-Quellcode:

uses
  System.SysUtils,
  System.IOUtils,
  System.Types;

type TRows = array of array of string;

function listFiles(
   const Pfad: String;
   FileName: string
): TRows;
var
   fileNames:       TStringDynArray;
   fileNameIndex:   Integer;
begin
   filename := '*' + fileName + '*';
   fileNames := TDirectory.GetFiles(Pfad, FileName, TSearchOption.soAllDirectories);

   SetLength(Result, 2);
   SetLength( Result[0], Length(fileNames) );
   SetLength( Result[1], Length(fileNames) );

   for fileNameIndex := Low(fileNames) to High(fileNames) do
      Result[0, fileNameIndex] := fileNames[fileNameIndex];
end;

[DeddyH]

@Sir Rufo: ich hab mich nur an Threads wie diesen hier erinnert, deshalb traue ich dem Attributfilter nicht so recht über den Weg.

[Dejan Vu]

Zitat von Der schöne Günther:

..Das ständige SetLength sorgt nicht nur dafür dass das Array ständig im Speicher kopiert und hin und her wandert...

Nee. Mach dir keinen Kopp, das ist hochoptimiert. Aber der Rest ist 100% richtig ergo: Weg. Nur eine Performancebremse ist das nicht mehr, dank FastMem.