Festplatte durchsuchen lassen???

[Matze]

Erst willst du aufgeben, 7 Minuten später doch nicht mehr.

Pushen ist auch innerhalb von 24 Stunden nicht gestattet.

Mach es so, das geht 100%

Delphi-Quellcode:

procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
  SR: TSearchRec;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
              FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory <> faDirectory then
        begin
          Form1.ListBox1.Items.Add(RootFolder + SR.Name);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  FindAllFiles('f:\mp3s\', '*.mp3', true);
end;

Um mehrere Dateiendungen zu durchsuchen kannst du das ja hintereinander aufrufen.