Imports System.Security.AccessControl
Imports System.IO
 
Public Class frmMain
 
    Private Sub cmdBerechtigung_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles cmdBerechtigung.Click
        pSubBerechtigungErstellen("c:\Test", "domain\user", _
        FileSystemRights.Modify, AccessControlType.Allow)
    End Sub
 
    Private Sub pSubBerechtigungErstellen(ByVal strPfad As String, ByVal _
      strBenutzername As String, _
    ByVal objBerechtigung As FileSystemRights, ByVal objBerechtigungsTyp As _
    AccessControlType)
 
        Dim objZugriffInfo As New DirectoryInfo(strPfad)
        Dim objSicherheitInfo As DirectorySecurity = _
          objZugriffInfo.GetAccessControl()
        objSicherheitInfo.AddAccessRule(New FileSystemAccessRule( _
        strBenutzername, objBerechtigung, objBerechtigungsTyp))
        objZugriffInfo.SetAccessControl(objSicherheitInfo)
 
    End Sub
 
End Class