Назначить права на папку VBA - PullRequest
Новая
       8

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

0 голосов
/ 26 ноября 2009

Я использую приведенный ниже код для назначения прав на папку. Это прекрасно работает, когда я создаю папку, скажем, «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

1 Ответ

2 голосов
/ 26 ноября 2009

Возможно: 

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