Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Dateien in einem Ordner löschen

   
    by Amateurprofi, 14. Jul 2020
  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);