Festplatten nach Datei durchsuchen

[Intruder]

Folgendendes nutz ich um auf C:\ nach allen Dateien zu suchen die test.txt
heißen:

Delphi-Quellcode:

procedure SearchFiles(Ext,StartDir: string;Recursive: Boolean; List: TStrings);
var Rec: TSearchRec;
        i: integer;
        Dir : string;
begin
  Dir := StartDir;
  if AnsiLastChar(Dir) <> '\' then
    Dir := Dir + '\';
  i := FindFirst(StartDir+'*',faAnyFile,Rec);
  while i = 0 do
    begin
      Application.ProcessMessages; //optional
      if Pos(Ext,Rec.Name) > 0 then
        List.Add(Dir+Rec.Name);
      if ((Rec.Attr and faDirectory) > 0) and (Rec.Name <> '.') and
            (Rec.Name <> '..') and Recursive then
        begin
          if AnsiLastChar(Rec.Name) <> '\' then
            Rec.Name := Rec.Name + '\';
          SearchFiles(Ext,StartDir+Rec.Name,Recursive,List);
        end;
      i := FindNext(Rec);
    end;
  FindClose(Rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchFiles('test.txt','C:\',true,ListBox1.Items);
end;

jetzt das problem, ich will nicht nur auf C:\ danach suchen sondern auf allen vorhandenen Festplatten (nicht auf Disketten / CD-Laufwerken !)
Wie mache ich das am besten ?!

[Matze]

Du könntest mittels diesem Code die Laufwerksbuchstaben der Festplatten ermitteln und dann diese nacheinander durchsuchen.

[Intruder]

hab ich vorhin schon versucht, hab dann die festplatten laufwerke in
einer StringList bekommen und bin dann auch hängen geblieben, weil ich keinen
schimmer hab wie ich daraus dann wieder die einzelnen LW-Buchstaben etxrahiere :oops:

[Matze]

Delphi-Quellcode:

var i: integer;
    SL: TStringList;

...

  for i := 0 to SL.Count - 1 do
    SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);

(ungetestet)

[Intruder]

*smile*

das funktioniert schon mal :)
danke !

will aber gleichzeitig noch nach einer zweiten datei suchen, siehe unten....
dabei bekomm ich dann jedoch die fehlermeldung
"Listenindex überschreitet das Maximum(5)"
wie verhinder ich das ? :oops:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
SL: TStringList;
begin
SL:=festplatten;
   for i := 0 to SL.Count - 1 do
   SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
   SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items);
end;

[fkerber]

Hi!

Du hast ein begin...end vergessen. Bei ,ehr als einer Anweisung muss die For-Schleife selbiges beinhalten.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
SL: TStringList;
begin
SL:=festplatten;
   for i := 0 to SL.Count - 1 do
   begin
    SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
    SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items);
   end;
end;

Ciao Frederic

[jim_raynor]

Delphi-Quellcode:

for i := 0 to SL.Count - 1 do
   SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
   SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items);

Wenn du mehr als eine Anweisung hast, musst du diese mit Begin...end einschließen.

Delphi-Quellcode:

for i := 0 to SL.Count - 1 do
begin
   SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
   SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items); 
end;