File Directory VB.Net

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