VBS CreateFolder не работает

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. Но это также не имеет большого смысла, потому что я установил много программного обеспечения на этот компьютер, и каждое приложение вложило каталог в Program Files.

Есть идеи?

Answer 1

Похоже, что файл с именем MyNewApp (без расширения) В C:\Program Files\ удалите его.

Answer 2

Нет, это была проблема с разрешением - я изменил каталог создания на C:\\, и он работает нормально. Я оставлю это и закрою этот билет! Спасибо за ответы, хотя!

Answer 3

Код правильный. Вы можете поставить поверх кода:

    on error resume next

'тогда в конце, если хотите, вы можете поставить следующее, чтобы описать вам, что случилось.

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