Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как удалить файл [D7]

Wolferio © (2005-09-19 13:49:00)
Добрый день

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

Спасибо

Джо (2005-09-19 21:40:00) [1]

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

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

Gero (2005-09-19 21:29:00) [2]

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

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

Джо (2005-09-19 21:19:00) [3]

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

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

ArtemESC (2005-09-19 20:57:00) [4]
>>Fay
>>Это чё за фигня?

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

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

Fay (2005-09-19 20:43:00) [5]
2 ArtemESC © (19.09.05 20:37) [3]
>> FileExists(Dir +
Это чё за фигня?

ArtemESC (2005-09-19 20:37:00) [6]
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;

Anatoly Podgoretsky (2005-09-19 16:19:00) [7]
ShFileOperation

Джо (2005-09-19 15:34:00) [8]
FindFirst/FindeNext/FindClose,DeleteFile. Примеры по всем 4 есть в Справке.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »