Удаление файлов

[-Jack-]

Всем доброго времени суток. Подскажите, может кто-то уже сталкивался с такой задачкой... Каким образом можно удалить из папки все файлы определённого расширения ?

[Человек_Борща]

FindFirst,FindNext,FindClose,TSearc hRec и DeleteFile

описание можно найти тут: http://www.delphibasics.ru/

[Stilet]

ИМХО CMD-шная del будет проще.

[-Jack-]

Сообщение от Человек_Борща

FindFirst,FindNext,FindClose,TSearc hRec и DeleteFile

описание можно найти тут: http://www.delphibasics.ru/

Спасибо

Сообщение от Stilet

ИМХО CMD-шная del будет проще.

Хм... разве ? ну в случаи, когда именно все файлы определенного расширения нужно удалить, тогда - да ... А я бы хотел ещё в дальнейшем поставить исключение на некоторые файлы ... Так что тут cmd-шный del не совсем подойдёт ...

[-Jack-]

Если кому пригодится ... вот что нашёл ...

var
  FileName :TSearchRec;
  r :integer;
begin
r := FindFirst('*.txt',faAnyFile,FileName);
if r = 0 then DeleteFile(FileName.Name);
while (FindNext(FileName) = 0) do
        DeleteFile(FileName.Name);
end;

[Человек_Борща]

код с мемори леак =)

Гдеже там FindClose?

[-Jack-]

что за мемори леак ?

var
  FileName :TSearchRec;
  r :integer;
begin
r := FindFirst('*.txt',faAnyFile,FileName);
if r = 0 then DeleteFile(FileName.Name);
while (FindNext(FileName) = 0) do
        DeleteFile(FileName.Name);
findClose(FileName);
end;

[Пепел Феникса]

вторая строка на него и указывала, если не вызван FindClose, то ресурсы связанные с поиском не будут освобождены.

[Stilet]

На всякий случай скажу что код сей не годится если удаление должно каскадом по вложенным каталогам проходить.