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:
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager