Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ошибка при копировании открытого файла / 9 сообщений из 9, страница 1 из 1
31.03.2005, 15:10
    #32991273
vital345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
хочу скопировать файл
copy file example.dbf to ex.dbf
Но если файл занят кем-то(кто-то его уже смотрит), мне выдается ошибка
и дальше прогр-ма будет выполняться только если нажмешь ignore
Вопрос: как можно заранее проверить заблокирован файл или свободен, чтобы
выдавать польз-лю окошко, что файл заблокирован и не пытаться скопировать его?
...
Рейтинг: 0 / 0
31.03.2005, 15:16
    #32991287
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
посмотри здесь http://forum.foxclub.ru/read.php?f=29&i=1808&t=1808, как альтернативный вариант COPY TO, APPEND FROM
...
Рейтинг: 0 / 0
31.03.2005, 15:35
    #32991339
Strong
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
******программа
ON ERROR bl_EXIT=MyError(ERROR())
copy file grp_del.dbf to ex.dbf
ON ERROR 
IF bl_EXIT
	*выход из программы
	MESSAGEBOX("Завершение работы")
ELSE 
	MESSAGEBOX("Готов к работе")
	*код 
ENDIF 
********************************
PROCEDURE Myerror
	LPARAMETERS nl_ErrNum
	DO CASE 
	CASE  nl_ErrNum= 1705 
		MESSAGEBOX("Файл занят попробуйте позднее")
		RETURN .T.
	CASE  nl_ErrNum= 1102 
		MESSAGEBOX("Не могу создать файл")
		RETURN .T.
	OTHERWISE  
		RETURN .F.
	ENDCASE   
ENDPROC 
______________________________________
с уважением: Strong
...
Рейтинг: 0 / 0
31.03.2005, 16:03
    #32991470
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
Кстати, вот есть готовое решение http://]http://www.foxclub.ru/sol/index.php?act=view&id=472
...
Рейтинг: 0 / 0
31.03.2005, 16:12
    #32991491
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
gg=fopen('example.dbf ',2)
if gg>0
fclose(gg)
copy file example.dbf to ex.dbf
endif
...
Рейтинг: 0 / 0
31.03.2005, 16:49
    #32991630
vital345
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
leafgg=fopen('example.dbf ',2)
if gg>0
fclose(gg)
copy file example.dbf to ex.dbf
endif
спасибо, воспользовался такой проверкой, все залетало
...
Рейтинг: 0 / 0
31.03.2005, 17:00
    #32991669
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
при таком подходе еще полезна функция FILE() для проверки существования файла на диске как организоваться придумайте сами
кроме того по ветке елсе моно при желании организовать выборку через селект в тот же файл если моно его открыть в режиме шары
тот пример что приведен он простейший и только заготовка
...
Рейтинг: 0 / 0
01.04.2005, 02:04
    #32992326
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
Hi vital345!

> спасибо, воспользовался такой проверкой, все залетало

Ты серьёзно веришь что в компьютерах программа выполняется "мгновенно", и между 2-мя командами - fclose и COPY FILE никто и никогда не сможет открыть файл и тем самым его заблокировать? Эх, наивный :)

Всё решается на обработке ошибок - просто, безотказно и логично.

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
01.04.2005, 15:18
    #32993661
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка при копировании открытого файла
если хорошо подумать то только обработка ошибок
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ошибка при копировании открытого файла / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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