Как удалить файл

← →
Wolferio © (2005-09-19 13:49) [0]

Добрый день

Как удалить файлЫ с росширением (например *.log) в определённой папке.

Спасибо

← →
Джо © (2005-09-19 15:34) [1]

FindFirst/FindeNext/FindClose,DeleteFile. Примеры по всем 4 есть в Справке.

← →
Anatoly Podgoretsky © (2005-09-19 16:19) [2]

ShFileOperation

← →
ArtemESC © (2005-09-19 20:37) [3]

Dir оканчиваеться на "\"
var
SR : TSearchRec;
begin
str := "";
If FindFirst(Dir + "*.log", faAnyFile, SR) = 0 then
repeat
If (SR.Name <> ".") and (SR.Name <> "..") and FileExists(Dir + SR.Name) then
begin
FileSetAttr(Dir + "SR.Name", faArchive);
DeleteFile(Dir + "SR.Name");
end;
until FindNext(SR) <> 0;
SysUtils.FindClose(SR);
end;

← →
Fay © (2005-09-19 20:43) [4]

2 ArtemESC © (19.09.05 20:37) [3]
>> FileExists(Dir +
Это чё за фигня?

← →
ArtemESC © (2005-09-19 20:57) [5]

>>Fay
>>Это чё за фигня?

Если это каталог - его удалять не надо...

>>[1]Как удалить файлЫ

> [5] ArtemESC © (19.09.05 20:57)
> >>Fay
> >>Это чё за фигня?
>
> Если это каталог - его удалять не надо...
>
> >>[1]Как удалить файлЫ

Уверяю, достаточно
if (faDirectory and SR.Attribute) = 0

> FileSetAttr(Dir + "SR.Name", faArchive);
> DeleteFile(Dir + "SR.Name");

Интересно. Выкрасим и выбросим.

> [7] Gero © (19.09.05 21:29)

DeleteFile не удаляет ReadOnly :)
Хотя, согласен, достаточно было бы SetFileAttributes(файл,0), но тут уж без разницы...

Как удалить файл Найти похожие ветки