Festplatte/n durchsuchen

[michi160991]

achso okay gut danke... ich hab jetzt hier mal diesen quell text :

Delphi-Quellcode:

// Deklaration ab Delphi 5 
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True); 

var 
  SR: TSearchRec; 
begin 
  // Implementation bis einschließlich Delphi 4 
  if RootFolder = '' then 
    Exit; 
  if AnsiLastChar(RootFolder)^ <> '\' then 
    RootFolder := RootFolder + '\'; 

  // Implementation ab Delphi 5 
  RootFolder := IncludeTrailingPathDelimiter(RootFolder); 

  // * * * * * 
  // nur bis einschließlich Delphi 4 benötigt 
  if Mask = '' then 
    Mask := '*.*'; 
  // * * * * * 

  if Recurse then 
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then 
      try 
        repeat 
          if SR.Attr and faDirectory = faDirectory then 
            // --> ein Verzeichnis wurde gefunden 
            //   der Verzeichnisname steht in SR.Name 
            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist 
            //       RootFolder + SR.Name 
            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 
          // --> eine Datei wurde gefunden 
          //   der Dateiname steht in SR.Name 
          //   der vollständige Dateiname (inkl. Pfadangabe) ist 
          //       RootFolder + SR.Name 

          // folgende Zeile schreibt den vollständigen Namen in eine Memo Feld des 
          // Formulars Form1 
          Form1.Memo1.Lines.Add(RootFolder + SR.Name); 
        end; 
      until FindNext(SR) <> 0; 
    finally 
      FindClose(SR); 
    end; 
end;

so nur ich muss ja noch die suche bestätigen also das er überhaupt sucht oder? wenn ja wie ist der befehl und wo muss dieser hin?


danke

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]