powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пропадает файл
4 сообщений из 4, страница 1 из 1
Пропадает файл
    #39061218
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть такой код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
in=FOPEN(fil2,2)
IF in < 0
	RETURN .f.
Endi
DO WHILE !FEOF(m.in)
	s=FGETS(m.in)
	DO case
.......
	endcase
Endd
FCHSIZE(in,0)
=FCLOSE(m.in)
ERASE (fil2)



В результате работы на строке ERASE (fil2) выдается ошибка "файл не существует".
Код исполняется на нескольких машинах и на каждой идет по нескольку процессов одновременно.
Но ведь и файл открыт на запись. тут может быть ошибка доступа.
Ошибка возникает довольно редко, но статистика ее отлавливает.

есть мысли?
...
Рейтинг: 0 / 0
Пропадает файл
    #39061233
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Содержимое fil2 не меняется пока работает код? Добавь
Код: sql
1.
local fil2


2. В fil2 полный путь или относительный? Если второе то может в процессе расчета меняется рабочая папка.

Пиши в лог перед удалением
Код: sql
1.
StrToFile(fullpath(fil2), 'erase.log', .T.)
...
Рейтинг: 0 / 0
Пропадает файл
    #39061266
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dima T,

fil2 - local
и походу программы не меняется (проверил)
есть подозрение, что кто-то между fclos и erase успевает удалить, но тут скорее бы была ошибка доступа.
...
Рейтинг: 0 / 0
Пропадает файл
    #39061647
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Команда erase (fil2) не может выдавать сообщение "Файл не существует", попробуй в командной строке
erase hrehhesusventaya.blabla
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пропадает файл
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]