Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пропадает файл / 4 сообщений из 4, страница 1 из 1
25.09.2015, 13:10
    #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
25.09.2015, 13:24
    #39061233
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пропадает файл
1. Содержимое fil2 не меняется пока работает код? Добавь
Код: sql
1.
local fil2


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

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

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


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