Mega Code Archive

 

Categories / VB.Net / File Directory

 

DirectoryInfo GetAccessControl

Imports System Imports System.IO Imports System.Security.AccessControl Module DirectoryExample     Sub Main()         Try             Dim DirectoryName As String = "TestDirectory"             AddDirectorySecurity(DirectoryName, "MYDOMAIN\MyAccount", FileSystemRights.ReadData, AccessControlType.Allow)             RemoveDirectorySecurity(DirectoryName, "MYDOMAIN\MyAccount", FileSystemRights.ReadData, AccessControlType.Allow)         Catch e As Exception             Console.WriteLine(e)         End Try         Console.ReadLine()     End Sub     Sub AddDirectorySecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)         Dim dInfo As New DirectoryInfo(FileName)         Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()         dSecurity.AddAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))         dInfo.SetAccessControl(dSecurity)     End Sub     Sub RemoveDirectorySecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)         Dim dInfo As New DirectoryInfo(FileName)         Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()         dSecurity.RemoveAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))         dInfo.SetAccessControl(dSecurity)     End Sub End Module