Назначить права на папку VBA

Question

Я использую приведенный ниже код для назначения прав на папку. Это отлично работает, когда я создаю папку с именем «C:/Test» и запускаю код. Он отлично работает без каких-либо проблем, но как только я попробую сделать то же самое с папкой «C:/Documents and Settings», я получаю сообщение об ошибке.

Вот код; это код VBA, выполненный в документе 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

Возможно:

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