GetAllFiles

[ueei.net]

Hallo,

möchte eine beliebige Anzahl von Endungen in meine rekursive Dateisuche einbauen.

Ich suche zur Zeit wie folgt.

Delphi-Quellcode:

//Rekursives Einlesen
procedure TForm1.GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
  checksum: string;
begin
  directory := ExtractFilePath(mask);

  // find all files
  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox
      checksum := IntToStr(GetCheckSum(directory + search.Name));
      Form1.Memo_akt.Lines.Add(directory + search.Name + '|' + checksum);
      Inc(Count);
    until FindNext(search) <> 0;
  end;

  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
        GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

Nun möchte ich aber als mask mehrere Endungen angeben können (*.jpg,*.gif,*.tif) usw.

Wie kann ich das angehen?

Danke