为文件夹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 "