Public Class NTFS_security
    Sub Main()
        Try
            Dim DirectoryName As String = Environment.GetEnvironmentVariable( _
              "SystemRoot") & "\temp"
            ' Add the access control entry to the directory.
            AddDirectorySecurity(DirectoryName, "jeder", _
              FileSystemRights.FullControl, AccessControlType.Allow)
 
            ' Remove the access control entry from the directory.
            'RemoveDirectorySecurity(DirectoryName, "MYDOMAIN\MyAccount", 
            ' FileSystemRights.ReadData, AccessControlType.Allow)
        Catch ex As Exception
            GlobalFunctions.ErrorLog(ex.Message, "tempdir.main", _
              PrtType.Failure)
        End Try
 
 
    End Sub
 
 
    ' Adds an ACL entry on the specified directory for the specified account.
    Sub AddDirectorySecurity(ByVal FileName As String, ByVal Account As String, _
      ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
        ' Create a new DirectoryInfoobject.
        Dim dInfo As New DirectoryInfo(FileName)
 
 
        ' Get a DirectorySecurity object that represents the 
        ' current security settings.
        Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()
 
        ' Add the FileSystemAccessRule to the security settings. 
 
        dSecurity.SetAccessRule(New FileSystemAccessRule(Account, Rights, _
          ControlType))
 
        ' Set the new access settings.
        dInfo.SetAccessControl(dSecurity)
 
    End Sub
End Class