VBA 폴더에 대한 권한 할당

Question

아래 코드를 사용하여 폴더에 권한을 할당합니다. 이것은 "C :/Test"라고 말하면서 폴더를 생성하고 코드를 실행할 때 잘 동작합니다. 어떤 문제도없이 잘 작동하지만 일단 "C :/Documents and Settings"폴더에서 동일한 작업을 시도하면 오류가 발생합니다.

다음은 코드입니다. Word 문서에서 수행되는 VBA 코드입니다.

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 "