| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с удалением файлов. [D5, Win2k]
vajo © (2002-09-09 09:21:00)Такая вот к примеру процедура
procedure TForm1.Button4Click(Sender: TObject);
var
F: TSearchRec;
Vf: file;
begin
ForceDirectories("D:\Temp");
if FindFirst("D:\Temp"+"\*.jpg", faAnyFile+faReadOnly+faHidden+faSysFile+faArchive, F)=0 then
begin
AssignFile( Vf,"D:\Temp"+"\"+F.Name);
Rewrite(Vf); // выдает ошибку
CloseFile(Vf);
Erase(Vf);
while FindNext(F) = 0 do
begin
AssignFile( Vf,"D:\Temp"+"\"+F.Name);
Rewrite(Vf);
CloseFile(Vf);
Erase(Vf);
end;
end;
FindClose(F);
end;
В этом коде выскакивает ошибка "File access denied". Не пойму почему. Права на папку полные.
______________________________________________________________
procedure TForm1.Button5Click(Sender: TObject);
begin
DeleteFile("D:\Temp\01.jpg")
end;
Здесь тоже не удаляет, но и ошибки нет.
Подскажите, в чем проблема.
vajo (2002-09-09 15:43:00) [1]Теперь работает. На папке действительно стояло ReadOnly.
Игорь Шевченко (2002-09-09 12:50:00) [2]
>
> procedure TForm1.Button5Click(Sender: TObject);
> begin
> DeleteFile("D:\Temp\01.jpg")
> end;
> Здесь тоже не удаляет, но и ошибки нет.
Если нет ReadOnly, то
а) файла нету
б) файл есть, но открыт другим приложением
в) Луна не в нужной фазе
vajo (2002-09-09 11:54:00) [3]Нет. Там нет атрибута ReadOnly.
Игорь Шевченко (2002-09-09 11:26:00) [4]В атрибутах файлов не может быть проблемы ? (Например, они ReadOnly)...
| |
