Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Вниз
Как удалить файл Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c
