ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Логин и пароль на папку
5 сообщений из 5, страница 1 из 1
Логин и пароль на папку
    #40026665
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Даже не знаю как вопрос задать в поиске - поэтому и не нашел ничего..
Задача:
Неофисное приложение (CATIA), в нем модуль на VBA
На сервере есть папка, закрытая администратором для записи и изменений
Надо в определенный момент, используя логин и пароль с соответствующими правами произвести запись или редактирование одного и файлов...
Стандартные методы приложения SAVE и SAVE AS не имеют таких опций....
...
Рейтинг: 0 / 0
11.12.2020, 07:34
| Ответить | Цитировать | Написать  
Логин и пароль на папку
    #40026749
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Программно замапить сетевую папку как диск. Дальше работать как с обычным диском. Потом отключить диск.
Как то так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim netDisk As WshNetwork
Set netDisk  = New WshNetwork
netDisk.MapNetworkDrive "X:", "\\server\folder", False, "domain\username","password"
'работа с диском
'.....

Set netDisk = Nothing
...
Рейтинг: 0 / 0
11.12.2020, 11:42
| Ответить | Цитировать | Написать  
Логин и пароль на папку
    #40026766
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
А как wshnetwork с filesystemobject?
Потому что работать с файлами я только через filesystemobject могу....
Бегло пробежал по ним - не понял пока как...
...
Рейтинг: 0 / 0
11.12.2020, 12:25
| Ответить | Цитировать | Написать  
Логин и пароль на папку
    #40027004
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Serg197311,

У вас новый диск появится в системе, "X:" согласно примеру. Работайте с FSO по прежнему. После отработки, диск можно и нужно отключить/отмонтировать. Для доступа к объекту добавьте ссылку или придется работать через позднее связывание

Код: vbnet
1.
2.
3.
4.
5.
Dim netDisk As Object
Set netDisk = CreateObject("WScript.Network")

' Так отключить диск
netDisk.RemoveNetworkDrive "X:", True, False
...
Рейтинг: 0 / 0
11.12.2020, 18:46
| Ответить | Цитировать | Написать  
Логин и пароль на папку
    #40027006
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
VSVLAD,
...
Рейтинг: 0 / 0
11.12.2020, 18:51
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Логин и пароль на папку
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=40026665&tid=2154756]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 26ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 284ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


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