من عنده أثارة من علم فلا يبخلن علي بمساعدته

السلام عليكم ورحمة الله وبركاته .... أسعد الله بالخير أوقاتكم

قمت بكتابة هذه الدالة

 Sub AddDirectorySecurity(ByVal FileName As String, ByVal Account As String, ByVal UserRights As AccessControl.FileSystemRights, ByVal AccessControlType As AccessControl.AccessControlType)
        Dim AccessRules As New AccessControl.FileSystemAccessRule(Account, UserRights, AccessControlType, AccessControl.PropagationFlags.NoPropagateInherit, AccessControl.AccessControlType.Allow)
        Dim Directory_Info As New IO.DirectoryInfo(FileName)
        Dim Directory_Security As AccessControl.DirectorySecurity = Directory_Info.GetAccessControl()
        Directory_Security.ModifyAccessRule(AccessControl.AccessControlModification.Set, AccessRules, True)
        Directory_Info.SetAccessControl(Directory_Security)
    End Sub

ثم قمت باستخدامها على أحد المجلدات كالتالي

AddDirectorySecurity("C:\New Folder\omar", "admin", Security.AccessControl.FileSystemRights.ChangePermissions, Security.AccessControl.AccessControlType.Allow)

وكانت من قبل تعمل بشكل جيد لكنها سرعان ما توقفت عن العمل وإذا أردت استدعاءها تفاجئني بهذه الرسالة

"Some or all identity references could not be translated"

فلا تبخلوا علي بمساعدتكم يا أهل الخير