File Directory ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. File Directory
  4. Access Control List information (VB)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Security.AccessControl" %>


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim sec As System.Security.AccessControl.FileSecurity = System.IO.File.GetAccessControl(Server.MapPath("TextFile.txt"))
        
        Me.Label1.Text = sec.GetOwner(System.Type.GetType("System.Security.Principal.NTAccount")).Value
      
        Dim auth As AuthorizationRuleCollection = sec.GetAccessRules(True, True, System.Type.GetType("System.Security.Principal.NTAccount"))
        Dim tc As TableCell
        For Each r As FileSystemAccessRule In auth
        
            Dim tr As New TableRow()
            
            tc = New TableCell()
            tc.Text = r.AccessControlType.ToString()
            tr.Cells.Add(tc)
            tc = New TableCell()
            tc.Text = r.IdentityReference.Value
            tr.Cells.Add(tc)
            tc = New TableCell()
            tc.Text = r.InheritanceFlags.ToString()
            tr.Cells.Add(tc)
            tc = New TableCell()
            tc.Text = r.IsInherited.ToString()
            tr.Cells.Add(tc)
            tc = New TableCell()
            tc.Text = r.PropagationFlags.ToString()
            tr.Cells.Add(tc)
            tc = New TableCell()
            tc.Text = r.FileSystemRights.ToString()
            tr.Cells.Add(tc)
            Table1.Rows.Add(tr)
        Next
    End Sub



    Untitled Page


    
    

        File Owner:
                      
        
        Access Rules:
        
            
                Control Type
                Identity
                Inheritance Flags
                Is Inherited
                Propagation Flags     
                File System Rights