راهنمایی برای تغییر دسترسی به پوشه یا فایل ها ؟

[Heidari66]

سلام دوستان...

چطور میتونم Permission پوشه ای با محتویات داخشلو Allow یا Deny کنم؟!
دقت کنید:
لطفا اینو کامل کنید:



Dim directoryInfo As New IO.DirectoryInfo("c:\New folder")
Dim directorySecurity As AccessControl.DirectorySecurity = directoryInfo.GetAccessControl


directorySecurity.AddAccessRule(New AccessControl.FileSystemAccessRule("administrators", AccessControl.FileSystemRights.FullControl, AccessControl.InheritanceFlags.ObjectInherit, AccessControl.PropagationFlags.InheritOnly, AccessControl.AccessControlType.Allow))

directorySecurity.RemoveAccessRule(New AccessControl.FileSystemAccessRule("administrators", AccessControl.FileSystemRights.FullControl, AccessControl.InheritanceFlags.ObjectInherit, AccessControl.PropagationFlags.InheritOnly, AccessControl.AccessControlType.Deny))


directoryInfo.SetAccessControl(directorySecurity)