windows - VBS CreateFolder virker ikke

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg forsøger at skrive et simpelt VBS script, der vil oprette mapper på min arbejdsmaskine.


Her er koden:


Dim newFolder
Dim fileSys
Dim objShell

newFolder = "C:Program FilesMyNewApp"
set objShell = createobject("Scripting.FileSystemObject")

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


Når jeg kører scriptet (ved at dobbeltklikke på det på mit skrivebord), får jeg en fejl dialog, der angiver, at denne fil allerede eksisterer.


Jeg går til C:\Program Files og kigger efter en mappe kaldet MyNewApp og ser ingenting.


Er der noget glaringly wrong med dette enkle script? Jeg formoder, at dette kunne være et tilladelsesproblem. Måske bliver alle arbejdsmaskiner implementeret uden at skrive/udføre tilladelser til programfilen. Men det giver heller ikke meget mening, fordi jeg har installeret mange software på denne maskine, og hver applikation har indlejret en mappe inde i Programfiler.


Nogle ideer?

Bedste reference


Koden er korrekt. Du kan lægge oven på koden:


    on error resume next


'så i slutningen, hvis du vil, kan du lægge følgende for at beskrive for dig, hvad der sker.


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

Andre referencer 1


Det ser ud til, at der er en fil ved navn MyNewApp (ikke-udvidelse) i C:Program Files, skal du slette den.

Andre referencer 2


Nej det var et tilladelsesproblem - jeg ændrede oprettelsesmappen til C:\, og det virker fint. Jeg vil efterlade det og lukke denne billet! Tak for svarene!