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