Как удалить все файлы из папки в delphi?

Пользователь

от sherwood_littel , в категории: Другие , год назад

Как удалить все файлы из папки в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от 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);

Если же необходимо удалять файлы и во вложенных папках, то стоит использовать рекурсию.