Помогите получить UNC путь по логическому пути файла

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
MiGan
Обычный пользователь
Обычный пользователь
 
Сообщения: 60
Зарегистрирован: 02.05.2005 (Пн) 13:27

Помогите получить UNC путь по логическому пути файла

Сообщение MiGan » 23.11.2005 (Ср) 16:24

Подскажите, как по логическому пути файла получить его UNC адрес. Т.е., если допустим к системе приаттачен сетевой диск G, то как получить полный сетевой адрес файла типа \\server\dir\file.dat вместо G:\file.dat?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 23.11.2005 (Ср) 16:54

Никак. Если ты подумаешь логически, то поймешь, что на один и тот же файл может ссылаться неограниченное число UNC-путей.
Обратное (из UNC локальный адрес) возможно.
Lasciate ogni speranza, voi ch'entrate.

MiGan
Обычный пользователь
Обычный пользователь
 
Сообщения: 60
Зарегистрирован: 02.05.2005 (Пн) 13:27

Сообщение MiGan » 23.11.2005 (Ср) 17:02

Неужели нельзя узнать, на что ссылается сетевой диск?
Хорошо, тогда как можно получить список адресов общедоступных сетевых ресурсов вообще? :?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 23.11.2005 (Ср) 19:24

наверное, надо что-то вроде WNetOpenEnum + WNetGetResourceInformation
Изображение

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 24.11.2005 (Чт) 11:39

перебрать все шары(админские тоже) и найти UNC, чё тут сложного?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

MiGan
Обычный пользователь
Обычный пользователь
 
Сообщения: 60
Зарегистрирован: 02.05.2005 (Пн) 13:27

Сообщение MiGan » 24.11.2005 (Чт) 11:42

Спасибо, будем разбираться!!!

AndreyIl
Обычный пользователь
Обычный пользователь
 
Сообщения: 82
Зарегистрирован: 18.10.2005 (Вт) 16:17
Откуда: г. Брянск

Сообщение AndreyIl » 24.11.2005 (Чт) 12:57

Private i As Long
Private O As FileSystemObject

Private Sub Form_Load()
Set O = CreateObject("Scripting.FileSystemObject")
MsgBox O.Drives.Item("d:\").ShareName '\\comp\install
End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 70

    TopList