Создание папки в сетевой папке завершается ошибкой "неверный путь"

Question

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

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

Мой скрипт ниже:

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