Festplatte durchsuchen lassen???

[Bernd29bln]

HI Matze,

habs mal ausprobiert listbox bleibt leer hier mal der code.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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('c:\mp3s\', '*.mp3', true);
end;

end.

gruss bernd

[mirage228]

Hi,

heißt Dein Verzeichnis auch wirklich "C:\mp3s" ?

mfG
mirage228

[Bernd29bln]

ups tutmirleid hab net aufgepasst

[Bernd29bln]

habs mal probiert der compi reagiert darauf und sucht aber am ende bleibt die listbox leer.

gruss bernd

[Matze]

Der Code geht 100%, habe ihn selbst getestet. Hast du in dem Verzeichnis überhaupt MP3-Dateien drin?

Du kannst ja mal, nach

Form1.ListBox1.Items.Add(RootFolder + SR.Name); das hier testweise aufrufen, damit es gleich aktualisiert wird:

Application.ProcessMessages;

[Bernd29bln]

na ich hab c:\ eingeben um auf der gesamten hd zu suchen hat auch lange gedauert das er nach mp3 suchen soll hab ich auch drin gelassen.

gruss bernd

[Bernd29bln]

Supi Matze ,

mit [/delphi]Application.ProcessMessages;[delphi] Klapt es vielen dank .

war ja wieder ne schwere geburt

gruss

[Matze]

Zitat von Bernd29bln:

Supi Matze ,

mit Application.ProcessMessages; Klapt es vielen dank .

Du kannst Beiträge auch editieren.

Dann hat es davor auch geklappt, nur hast du das nicht gesehen. Wenn die Festplatte zuende zurchsucht worden wäre, hätte sich die ListBox aktualisiert und die Liste wäre da.

So dauert es nun etwas länger, bis alles gefunden wurde.

[Bernd29bln]

ja genau konnte mal wieder bei mir nicht schnell genug gehen GROSSEN Dank an allen die mir geholfen haben.