[VB.NET] Modificare i permessi di accesso ad una cartella

[delki]

Buongiorno a tutti,

vi espongo brevemente il mio problema: ho sviluppato una appliazione che crea delle cartelle su disco, crea gli utenti necessari nel sistema, ed applica a ciascun utente particolari permessi a determinate cartelle. Fin qui tutto bene, il problema con il quale devo fare i conti è che se verifico a livello di sistema operativo, i permessi applicati alla cartella sono di tipo: "Applica a: SOLO ALLA CARTELLA SELEZIONATA", mentre mi serve poetr definire che il tipo di permesso applicato deve essere del tipo: "Applica a: SOLO ALLA CARTELLA SELEZIONATA, LE SOTTOCARTELLE E I FILES".

La routine che applica i diritti è riportata in calce, qualcuno è in grado di fornirmi il suggerimento giusto?
Grazie in anticipo a tutti
Delki

Private Sub AddDirittiBase(ByVal Path As String, ByVal Account As String)
Try
Dim dInfo As New DirectoryInfo(Path)
Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl

Dim Rule1 As New FileSystemAccessRule(New System.Security.Principal.NTAccount(Account), _
FileSystemRights.Traverse _
+ FileSystemRights.Read, _
AccessControlType.Allow, _
PropagationFlags.NoPropagateInherit, _
AccessControlType.Allow)
Dim Rule2 As New FileSystemAuditRule(New System.Security.Principal.NTAccount(Account), _
FileSystemRights.Traverse _
+ FileSystemRights.Read, _
AuditFlags.Success, _
PropagationFlags.NoPropagateInherit, _
AuditFlags.Success)

Dim Riuscita1 As Boolean
Dim Riuscita2 As Boolean

dSecurity.ModifyAccessRule(AccessControlModificati on.Add, Rule1, Riuscita1)
dSecurity.ModifyAuditRule(AccessControlModificatio n.Add, Rule2, Riuscita2)

dInfo.SetAccessControl(dSecurity)

Catch ex As Exception
End Try

End Sub

[alka]

Come da Regolamento, il linguaggio va indicato anche nel titolo (qui l'ho modificato io così puoi prendere spunto) e il codice va racchiuso nel tag [CODE] per formattarlo.

Nel regolamento potrai trovare queste e altre norme da seguire nella partecipazione a quest'area del forum.