Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите (сетевые диски) / 7 сообщений из 7, страница 1 из 1
29.05.2009, 17:05
    #36016383
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
Подскажите пожалуйста:
Как получить имена и пути сетевых дисков подключенных на машине.
Мучаюсь 2 дня - ничего не выходит.
...
Рейтинг: 0 / 0
29.05.2009, 21:08
    #36016782
Погодин
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
Это подойдет ? (VFP9):

Places the names of network shares or printers into an array and then returns the number of resources.
? ANETRESOURCES(ArrayName, cNetworkName, nResourceType)
...
Рейтинг: 0 / 0
30.05.2009, 11:17
    #36017054
Rikitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
Спасибо!
Пробывал, но показывает все расшаренные ресурсы на определенной машине.
Может есть API функции?
...
Рейтинг: 0 / 0
01.06.2009, 10:31
    #36018377
XAndy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
WNetGetConnection()
...
Рейтинг: 0 / 0
01.06.2009, 10:46
    #36018416
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
Спасибо, попробую
...
Рейтинг: 0 / 0
01.06.2009, 11:22
    #36018492
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
DECLARE INTEGER SetCurrentDirectory IN kernel32 STRING lpPathName
Declare long WNetGetConnection IN win32api string lpszLocalName, String lpszRemoteName, integer @ cbRemoteName
lcRemotePath = SPACE(255)
=WNetGetConnection(lcDrive,@lcRemotePath,255)
lcRemotePath = LEFT(ALLTRIM(lcRemotePath),LEN(ALLTRIM(lcRemotePath)) - 1)
=SetCurrentDirectory(lcRemotePath)
Все отлично, получаю путь если подключен сетевой диск, но проблема в том, что я не знаю активен он или нет.
...
Рейтинг: 0 / 0
01.06.2009, 11:40
    #36018573
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите (сетевые диски)
Спасибо, разобрался.
Код ошибки: 1201 (0x04B1)
Устройство в настоящее время не присоединено, однако сведения о нем в конфигурации присутствуют.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите (сетевые диски) / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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