为文件夹 VBA 分配权限
我使用下面的代码为文件夹分配权限。当我在“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
I use the below code to assign rights to a folder. This works fine when I create a folder on say "C:/Test" and run the code. It works fine without any issues, but once I try the same with the folder "C:/Documents and Settings", I get an error.
Here is the code; it's VBA code done in a Word document.
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
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(1)
也许:
Perhaps: