Module Module1

Sub Main()
Dim fileSec = System.IO.File.GetAccessControl("d:\test", Security.AccessControl.AccessControlSections.Access)
Dim accessRules = fileSec.GetAccessRules(True, True, GetType(System.Security.Principal.NTAccount))
For Each rule As System.Security.AccessControl.FileSystemAccessRule In accessRules
Console.WriteLine(rule.IdentityReference.Value)
Console.WriteLine(rule.AccessControlType.ToString())
Console.WriteLine(rule.FileSystemRights.ToString())
Console.ReadKey()
Next
End Sub

End Module