Удаление всех файлов из указанной папки через Delphi

20.02.2009 от semen

Недавно, для удаления логов работы программы мне понадобилась функция для массового удаления файлов из указанной папки. Вот что в итоге я нашел/дописал/исправил:

procedure DeleteFilesFromPath(APath: string)
var
  XSearch: TSearchRec;
begin
  FindFirst(APath+'\*.*', faAnyFile+faReadOnly, XSearch);
  DeleteFile(APath+'\'+XSearch.Name);
  while FindNext(XSearch)=0 do DeleteFile(APath+'\'+XSearch.Name);
  FindClose(XSearch);
end;