Question

我正在尝试编写一个简单的VBS脚本，它将在我的工作机器上创建文件夹。

以下是代码：

Dim newFolder
Dim fileSys
Dim objShell

newFolder = "C:\Program Files\MyNewApp"
set objShell = createobject("Scripting.FileSystemObject")

if not objShell.FolderExists(newFolder) then
    set filesys=CreateObject("Scripting.FileSystemObject") 
    filesys.CreateFolder(newFolder) 
end if

当我运行脚本时（通过在我的桌面上双击它），我得到一个错误对话框，指出该文件已经存在。

我转到C:\\Program Files\并查找名为MyNewApp的目录，但什么都没看到。

这个简单的脚本有什么明显的错误吗？我怀疑这可能是一个权限问题。也许部署所有工作机器而没有Program Files目录的写/执行权限。但这也没有多大意义，因为我在这台机器上安装了 lot 软件，每个应用程序都嵌套了Program Files中的目录。

有什么想法吗？

Answer 1

代码是正确的。你可以放在代码之上：

    on error resume next

'然后如果你想，你可以把以下内容描述给你了。

    If Err.Number <> 0 Then
       MsgBox "Error: " & Err.Description 
    End If

Answer 2

在MyNewApp中看起来有一个名为C:\Program Files\（非扩展名）的文件，请将其删除。

Answer 3

不是这是一个权限问题 - 我将创建目录更改为C:\\，它运行正常。我要离开它并关闭这张票！谢谢你的答案！

VBS CreateFolder无法正常工作

3 个答案: