Festplatte durchsuchen lassen???

[Bernd29bln]

hi,

na den code hab ich doch da steht doch schon form1.listbox1.items.add
gucks du

Delphi-Quellcode:

procedure FindAllFiles(var FileList: TStrings; RootFolder: string; Mask: string =
  '*.*'; Recurse: Boolean = True);

var
  SR: TSearchRec;
begin
  IncludeTrailingPathDelimiter(RootFolder);

  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(FileList, 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
        Form1.ListBox1.Items.Add(RootFolder + SR.Name);
      end; 
    until FindNext(SR) <> 0; 
  finally
    FindClose(SR); 
  end; 
end;