Affecter des droits au dossier VBA

Question

J'utilise le code ci-dessous pour attribuer des droits à un dossier. Cela fonctionne très bien lorsque je crée un dossier sur "C:/Test" et exécutez le code. Cela fonctionne bien sans aucun problème, mais une fois que j'essaye la même chose avec le dossier "C:/Documents and Settings", j'obtiens une erreur.

Voici le code; c'est du code VBA fait dans un document Word.

Dim intRunError, objShell, objFSO,strHomeFolder   
strHomeFolder = "C:/Documents and Settings" 

Set objShell = CreateObject("Wscript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

If objFSO.FolderExists(strHomeFolder) Then 
    intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _ 
     & strHomeFolder & " /e /c /g everyone:F ", 2, True) 
End If 
MsgBox intRunError 

Answer 1

Peut-être:

"%COMSPEC% /c Echo Y| cacls """ & strHomeFolder & """ /e /c /g everyone:F "