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

Проблема с удалением файлов.   Найти похожие ветки 

← →
vajo   (2002-09-09 09:21) [0]

Такая вот к примеру процедура

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;
Здесь тоже не удаляет, но и ошибки нет.

Подскажите, в чем проблема.

---

← →
Игорь Шевченко ©   (2002-09-09 11:26) [1]

В атрибутах файлов не может быть проблемы ? (Например, они ReadOnly)...

---

← →
vajo   (2002-09-09 11:54) [2]

Нет. Там нет атрибута ReadOnly.

---

← →
Игорь Шевченко ©   (2002-09-09 12:50) [3]

>
> procedure TForm1.Button5Click(Sender: TObject);
> begin
> DeleteFile("D:\Temp\01.jpg")
> end;
> Здесь тоже не удаляет, но и ошибки нет.


Если нет ReadOnly, то
а) файла нету
б) файл есть, но открыт другим приложением
в) Луна не в нужной фазе

---

← →
vajo   (2002-09-09 15:43) [4]

Теперь работает. На папке действительно стояло ReadOnly.

---

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

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



Память: 0.45 MB
Время: 0.011 c