Dateien in einem Ordner löschen

[Amateurprofi]

Delphi-Quellcode:

PROCEDURE DeleteFilesInDirectory(const Path:String);
var I,R:Integer; SR:TSearchRec;  List:TStringList;
begin
   List:=TStringList.Create;
   R:=FindFirst(Path+'\*.*', faAnyFile,SR);
   while R=0 do begin
      if (SR.Attr and faDirectory<>faDirectory) then List.Add(Path+'\'+SR.Name);
      R:=FindNext(SR);
   end;
   FindClose(SR);
   for I:=0 to List.Count-1 do DeleteFile(List[I]);
   List.Free;
end;