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