проблема с удалением файла

← →
Ganjo (2003-11-01 01:22) [0]

Мне нужно удалить файл.
Я использую Deletefile(Name)но почемуто файл не удаляется что здесь может быть и есть ли другие способы удаления

← →
Ihor Osov'yak © (2003-11-01 01:33) [1]

Может конструкция вида
if not DeleteFile("blabla")
then ShowMessage(SysErrorMessage(GetLastError));
подскажет причину твоих трабл?

← →
Ganjo (2003-11-01 01:40) [2]

тут получается следуящая фишка:
"процес не может получить доступ к файлу поскольку оно занято другим приложением". Но я перед етим закрываю файл CloseFile(f)?!

← →
Ihor Osov'yak © (2003-11-01 01:50) [3]

Ты можешь так закрыть файл, если его сам открыл.. И не можешь таким способом закрыть файл, открытый другим приложением..

← →
Ganjo (2003-11-01 01:59) [4]

В чем суть: я открываю файл Reset(f)и создаю новый rewrite(f1).
Копирую часть файла f в f1 закрываю оба файла и хочу удалить f
deletefile(f)

← →
Ihor Osov'yak © (2003-11-01 02:05) [5]

Раз написано занято, значит занято..
Ищите ошибку в районе 17 строки.

← →
Ihor Osov'yak © (2003-11-01 02:08) [6]

Зы. Код бы привел, что ли..

← →
Ganjo (2003-11-01 02:15) [7]

Assignfile(f,filename);
Assignfile(f1,getcurrentdir+"\Bases\"+"temp");
reset(f);
rewrite(f1);
while not eof(f) do
begin
read(f,dan);
if i<>delitem then write(f1,dan);
i:=i+1;
end;
closefile(f);
closefile(f1);
deleteFile(filename);
RenameFile(getcurrentdir+"\Bases\"+"temp",filename);

← →
default © (2003-11-01 02:20) [8]

попробуй deleteFile(filename); замени на Erase(f)

Erase работает для закрытых файлов, а DeleteFile, наверно, для открытых раз ошибка...в хелпе смотри

← →
Ganjo (2003-11-01 02:36) [10]

Спасибо ребята за советы.
Я нашел в чем проблема. Ответ банальный. В совсем другой процедуре я открыл файл и просто забыл закрыть. поетому нет доступа к файлу.

Видишь OC тебе не обманывала.

>> а DeleteFile, наверно, для открытых раз ошибка..
О как! :)

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