как получить доступ к сетевой папке с помощью vbscript

У меня есть папка в сети, например \\server\contents\tasks, и я хочу получить доступ к этой папке.

Я получаю исключение «путь не найден». Что я делаю неправильно здесь:

Dim FolderPath
FolderPath = "\\server\contents\tasks"
set FSO = CreateObject("Scripting.FileSyatemObject")
FSO.GetFolder(FolderPath)

Спасибо

Изменить: я нашел этот пост который отвечает на то же, что и я, но проблема в том, что я получаю сообщение об ошибке, что сетевая папка больше недоступна. У меня есть локальная папка как общая папка и отображается как \\servername\contents\tasks, но это дает мне указанную выше ошибку.

Изменить: я указывал не на ту папку.

Теперь у меня другая проблема с попыткой открыть текстовый файл в сетевой папке. Он может создать папку по сетевому пути, но выдает ошибку при чтении текстового файла в сетевой папке. Есть ли что-то еще, что нужно сделать?

Set FSO = CreateObject("Scripting.FileSystemObject")
strOutputPath = strOutput1  --this is a network path
Set txsOutput = FSO.CreateTextFile(strOutputPath)
Set f = FSO.OpenTextFile(strInput1)

person user505210    schedule 01.07.2013    source источник
comment
У вас есть доступ к \\server\contents с вашими текущими учетными данными? Можете ли вы открыть путь, вставив его в адресную строку проводника? Показывает ли net view \\server общий ресурс contents?   -  person Ansgar Wiechers    schedule 01.07.2013
comment
Попробуйте это решение: stackoverflow.com/questions/631401/   -  person Mario    schedule 01.07.2013
comment
Какая это ошибка, которую вы сейчас получаете?   -  person Ansgar Wiechers    schedule 01.07.2013
comment
еще одна ошибка пути ... на самом деле перебирая множество папок и получая эту ошибку в некоторых из них, поскольку путь создается динамически ... Спасибо за вашу помощь, ребята.   -  person user505210    schedule 01.07.2013


Ответы (1)


Откройте сетевую папку с помощью explorer.exe и передайте расположение папки в качестве параметра (в этом примере это sPath, хранящий путь к папке)

Пример:

sPath = "\\somedrive.somecompany.ie\software"
Set oShell = CreateObject("WScript.Shell")
oShell.Run "explorer /n," & sPath, 1, False

Положения и условия: уже настроены права доступа к сетевой папке с именем пользователя и паролем.

person Mark Burleigh    schedule 20.05.2016