Imports System.IO
Imports System.Security.AccessControl
Imports System.Security.Principal
 
Public Class Form1
Private m_sDirectoryPath As String = ""
Private m_dInfo As DirectoryInfo
Private m_dSecurity As DirectorySecurity
Private m_sUserName As String = ""
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
Dim account As NTAccount
Dim col As AuthorizationRuleCollection
 
If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'gewählten Ordnerpfad lokalem Member zuweisen
m_sDirectoryPath = FolderBrowserDialog1.SelectedPath
'Create a new DirectoryInfoobject.
m_dInfo = New DirectoryInfo(m_sDirectoryPath)
'Get a DirectorySecurity object that represents the current security settings.
m_dSecurity = m_dInfo.GetAccessControl()
'Akt. Benutzer auslesen
m_sUserName = WindowsIdentity.GetCurrent().Name
'NT-Account des Benutzers holen. Dieses Objekt enthält sämtliche Infos über den 
' User
account = New NTAccount(m_sUserName)
'Alle Rechte, die der Ordner hat in der ListBox aufzeigen
 
col = m_dSecurity.GetAccessRules(True, True, account.GetType)
For Each oRule As FileSystemAccessRule In col
MsgBox(oRule.AccessControlType.ToString)
MsgBox(oRule.IdentityReference.Value)
MsgBox(oRule.InheritanceFlags.ToString)
MsgBox(oRule.IsInherited.ToString)
MsgBox(oRule.PropagationFlags.ToString)
'PROBLEM: Wenn FullAccess nicht gegeben ist, dann gibt mir .NET eine Zahl 
' zurück. Wie kann ich alle Rechte des Users/Gruppe auslesen?
MsgBox(oRule.FileSystemRights.ToString)
Next
End If
End Sub
End Class

---------------
VB.NET macht Spaß!