Thema: Delphi Komplette Partition C:

Einzelnen Beitrag anzeigen

Benutzerbild von I.A.
I.A.

Registriert seit: 29. Okt 2005
Ort: Hinter den Bergen bei den Sieben Zwergen
98 Beiträge
 
Delphi 2005 Personal
 
#9

Re: Komplette Partition C:

  Alt 4. Jul 2006, 14:23
Aha und das:
Delphi-Quellcode:
public
     procedure GetFiles(const Path: string);
   { Public-Deklarationen } 


procedure TForm1.GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;

begin
     Label1.Caption:='';
     p := path + '*.*';
     if FindFirst(p, faAnyFile, SearchRec) = 0 then
     begin
      repeat
        if (SearchRec.Attr and faDirectory) = faDirectory then
        begin
         if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
           GetFiles(Path + SearchRec.Name + '\');
           end
        else begin
        Form1.Memo1.Lines.Add(Path + SearchRec.Name);
        a:=a+1;
        Refresh;
        Application.ProcessMessages;
        ProgressBar1.StepIt;
        end;
      until
        FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
     end;
     ProgressBar1.Position:=0;
     Label1.Caption:=IntToStr(a) +' Dateien gescannt';
end;
brauche ich nicht mehr ????
  Mit Zitat antworten Zitat