Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Проблема с проверкой на существование сетевой папки  [new]
kVin
Member

Откуда:
Сообщений: 90
Перед обращением к сетевой папке пользуюсь if DIRECTORY() для проверки
но вот если папка не доступна, то программа зависает..
что можете посоветовать?

может использовать какую-нибудь подобную апи функцию...
21 янв 05, 12:42    [1263952]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с проверкой на существование сетевой папки  [new]
Андрей К
Member

Откуда: Санкт-Петербург
Сообщений: 157
Это, кажется работает:
*----------------------------------------
* Проверка наличия каталога
*
Function testdir
Lparameter dr
Local cdd, rt
Declare short SetCurrentDirectory IN kernel32.DLL STRING d
Declare INTEGER GetLastError IN kernel32.DLL
Declare INTEGER SetErrorMode IN kernel32.DLL INTEGER d
d=0x1
=SetErrorMode(d)
cdd=SYS(5)+SYS(2003)
rt=SetCurrentDirectory(dr)
Cd (cdd)
If rt=0
Return .F.
Else
Return .T.
Endif
Endfunc
21 янв 05, 13:47    [1264323]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с проверкой на существование сетевой папки  [new]
Andrey Ts
Member

Откуда: С-Пб
Сообщений: 516
FILE("\\Server\NameFolder\Filename") - любой файл в этой папке

ИМХО, работает быстрее
21 янв 05, 14:19    [1264505]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить