Erreur :Permission refusée Code:800A0046
Bonjour
je veux exécuté un script VBS mais j'ai un message d'erreur.
voici erreur:
Erreur : Permission refusée
Code:800A0046
voila mon sciprt:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| cDrive = "C:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(cDrive)
WScript.Echo "Terminé avec succès."
Sub ShowSubFolders(Folder)
str = ""
For Each Subfolder in Folder.SubFolders
str = str & " " & Subfolder.Path
subFolder.Attributes = 0
ShowSubFolders Subfolder
Next
End Sub |
Merci pour votre aide.