Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: 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 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
14-1127509369
Ihor Osov'yak
2005-09-24 01:02
2005.10.16
Об науке воровать и искусстве скрываться... Или почти "


1-1126457728
Артем Кудлаенко
2005-09-11 20:55
2005.10.16
DCOM. Interface not supported.


14-1126997219
P.N.P.
2005-09-18 02:46
2005.10.16
Смысл жизни


14-1127816097
__DATA__
2005-09-27 14:14
2005.10.16
Unit n was compiled with a different version of System.RTLVersion


3-1125657938
Alex Kryuchkov
2005-09-02 14:45
2005.10.16
Транзакции в DBXpress