Вот один путь, который работает.
Sub Main()
Dim fs As New FileSystemObject ' Add Reference to Microsoft Scripting Runtime
MsgBox fs.FileExists("\\server\folder\file.ext")
End Sub
У нас есть приложение VB6 прежней версии, которое использует UNC для создания строки подключения, таким образом, я знаю, что VB6 может сделать это. Часто, Вы найдете, что проблемы полномочий преступник.
Даже старый школьный тип обработки файла действительно работает:
Open "\\host\share\file.txt" For Input As #1
Dim sTmp
Line Input #1, sTmp
MsgBox sTmp
Close #1
Я не думаю, что это Правда, если Вы используете Scripting.Runtime
библиотека.
Oldschool VB имел некоторые конструкции языка для обработки файла. Они являются злыми. Не используйте их.
Какой файловый ввод-вывод Вы делаете? Если это - текст, изучите использование FileSystemObject.
Я наблюдал проблемы пути UNC VB6, когда комбинация объектов ниже существует:
Обычно 75 ошибок доступа к файлу пути или 54. Время от времени это может быть связано с API, таким как getshortfilename и getshortpathname на вышеупомянутом UNC.
Кроме этого они работают отлично... Отображенный путь не будет обычно иметь этих проблем, но те проклятые отображения диска часто разъединяются и могут изменить в любое время порождение многих головных болей поддержки.