Question

我已经设置了网络共享。我正在尝试创建一个VBScript，它将在共享中创建一个名为computername的文件夹，这是PC的名称。该脚本将在PC上本地运行，访问共享并在共享中创建文件夹。

我的错误是＆＃34; bad path＆＃34;。我猜我不能说出网络共享路径吗？

我的脚本如下：

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

在网络共享中创建文件夹失败了＆＃34;错误路径＆＃34;错误

1 个答案: