分配文件夾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 "