Скачать: CL | DM;

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

← →
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]Как удалить файлЫ

---

← →
Джо ©   (2005-09-19 21:19) [6]

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

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

---

← →
Gero ©   (2005-09-19 21:29) [7]

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

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

---

← →
Джо ©   (2005-09-19 21:40) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c