Как удалить все файлы из папки в delphi?
Как удалить все файлы из папки в delphi?
1 ответ
от
Programmer ,
год назад
@sherwood_littel !
Добрый день!
Для удаления всех файлов в папке можно сделать следующее
Для новых версий Delphi
1
|
TDirectory.Delete('Путь к папке', true);
|
для старых версий в рукопашную перебирать файлы в папке
1 2 3 4 5 6 7 8 9 |
var FileName :TSearchRec;
i :integer;
...
i := FindFirst('Путь к папке\*.*', faAnyFile, FileName);
if i = 0 then DeleteFile(FileName.Name);
while (FindNext(FileName) = 0) do
DeleteFile(FileName.Name);
|
Если же необходимо удалять файлы и во вложенных папках, то стоит использовать рекурсию.
15