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

Любые идеи?

Answer 1

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

on error resume next 

«, то в конце, если вы хотите, вы можете поместить следующее описать вам Whats вверх.

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

Answer 2

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

Answer 3

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