Создание папки в сетевом ресурсе происходит с ошибкой «неправильного пути»

Question

У меня уже установлен сетевой ресурс. Я пытаюсь создать VBScript, который создаст папку в папке с именем computername, которая является именем ПК. Скрипт будет выполняться локально на ПК, получить доступ к общему ресурсу и создать папку в общем доступе.

Моя ошибка в "bad path". Я предполагаю, что не могу просто указать путь к сетевой сети?

Мой сценарий ниже:

Dim objShell 
Set oWS = WScript.CreateObject("WScript.Shell") 
Set objShell = Wscript.CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
computername = oWS.ExpandEnvironmentStrings("%COMPUTERNAME%") 

If NOT (objFSO.FolderExists("\\ServerPath\Share$" + computername)) Then 
    objFSO.CreateFolder("\\ServerPath\Share$" + computername) 
End If 

Answer 1

Вы не хватает обратной косой черты между названием акции и имя папки, которую вы хотите создать. Кроме того, я бы рекомендовал использовать переменную для пути, поэтому вам не нужно ее создавать несколько раз.

Изменить это:

If NOT (objFSO.FolderExists("\\ServerPath\Share$" + computername)) Then 
    objFSO.CreateFolder("\\ServerPath\Share$" + computername) 
End If 

в этом:

path = "\\ServerPath\Share$\" & computername 
If NOT objFSO.FolderExists(path) Then 
    objFSO.CreateFolder(path) 
End If