Bonjour à tous,

J'ai besoin de créer des dossiers avec des droits spécifiques.

Pour ceci, je créé donc le dossier et avant de lui ajouter les droits qui vont bien, je veux supprimer les droits hérités des dossiers parents.
J'ai donc chercher un peu et pondu ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub resetRightAccess(ByVal folder As String)
   Dim tDoss As New DirectoryInfo(folder)
   Dim tSecurite As DirectorySecurity = tDoss.GetAccessControl()
   For Each anAccessRule In tSecurite.GetAccessRules(True, True, GetType(System.Security.Principal.NTAccount))
       tSecurite.RemoveAccessRule(anAccessRule)
    Next
    tDoss.SetAccessControl(tSecurite)
End Sub
Sauf que...les droits sont toujours là après passage dans la fonction.
J'ai vérifié en pas à pas, il boucle bien sur les droits existants et la fonction renvoie bien True...signe que normalement, la règle s'est supprimée sans encombres.