Código
Set(ByVal value As Boolean) Dim _ AccessDirInfo As New DirectoryInfo(Objeto), _ AccessInfo As DirectorySecurity = AccessDirInfo.GetAccessControl Dim I_S As New List(Of IdentityReference) For Each x As String In Users() I_S.Add(New NTAccount(x)) Next For Each I As IdentityReference In I_S AccessInfo.PurgeAccessRules(I) AccessDirInfo.SetAccessControl(AccessInfo) ''ERROR: Intento de realizar una operación no válida.'' If Not value Then AccessInfo.SetAccessRule(New FileSystemAccessRule(I, FileSystemRights.FullControl, AccessControlType.Allow)) AccessDirInfo.SetAccessControl(AccessInfo) End If Next I_S.Clear() End Set
Donde esta el comentario es la linea del error y el mensaje que lanza, alguien sabe cual es el problema o la manera de solucionarlo. Estoy en Windows 7.