Directory 设置文件夹访问权限时出错？

获取错误“无法翻译某些或所有标识引用

在第8行中获取错误

Dim FolderPath As String = "D:\Account\HA\" 'Specify the folder here
Dim UserAccount As String = mailid.ToString() & "\" & pwd
Dim objDirectoryInfo As DirectoryInfo = Nothing
Dim objDirectorySecurity As DirectorySecurity = Nothing
Dim objRule As FileSystemAccessRule = Nothing

objDirectoryInfo = New DirectoryInfo(FolderPath)
objDirectorySecurity = objDirectoryInfo.GetAccessControl
objRule = New FileSystemAccessRule(UserAccount, FileSystemRights.ReadPermissions, AccessControlType.Allow)
objDirectorySecurity.AddAccessRule(objRule)
objDirectoryInfo.SetAccessControl(objDirectorySecurity)

---

试试我为你做的这些改变

 Public Sub AddDirectorySecurity(ByVal FolderPath As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)


 ' Create a new DirectoryInfoobject.
    Dim objDirectoryInfo As New DirectoryInfo(FolderPath)

    ' Get a DirectorySecurity object that represents the current security settings.
    Dim objDirectorySecurity As DirectorySecurity = objDirectoryInfo.GetAccessControl()

     ' Add the FileSystemAccessRule to the security settings. 
    objDirectorySecurity .AddAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))

    ' Set the new access settings.
    objDirectoryInfo .SetAccessControl(dSecurity)

 End Sub

试一试，让我知道你的结果如何

---

谢谢！

您能进一步解释一下您遇到了什么问题吗？告诉我们它在第8行是不太好的。您设置了断点吗？