Проблема с удалением файлов.

← →
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.

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