Bjr et bonne année 2012 à toutes et tous

j'ai un petit soucis avec les droits sur le dossier crée lors de l'installation de mon application developée en Vb.net 2.0
Actuellement,mon dossier est C:\Program Files\XXXX\YYYYY
Auriez vous une solution pour que mon dossier XXXX ai les droit d'écriture ?
Pour l'instant il est en lecture seul ( s'applique uniquement aux fichier dans le dossier).Cela m'empêche d'utilisé ma Db.
Faut il gérer les droits dans mon code ou bien via le Setup ?

j'ai essayer différente chose à l'aide de ces sources d'information
http://plasserre.developpez.com/vd1-2.htm
ainsi que ceci pour essayer d'ajouter un groupe
http://devcity.net/Articles/339/1/article.aspx

je vous met également le code que je test actuellement dans un nouveau projet de test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1
#Region "SetDirectoryAccessPolicy"
    Private Sub SetDirectoryAccessPolicy(ByVal repertoire As String, ByVal droit As FileSystemRights, ByVal type As AccessControlType)
        Dim sid As New System.Security.Principal.SecurityIdentifier(System.Security.Principal.WellKnownSidType.WorldSid, Nothing)
        Dim acct As System.Security.Principal.NTAccount = TryCast(sid.Translate(GetType(System.Security.Principal.NTAccount)), System.Security.Principal.NTAccount)
        Dim strEveryoneAccount As String = acct.ToString()
        AddDirectorySecurity(repertoire, strEveryoneAccount, droit, type)
    End Sub
#End Region
 
#Region "AddDirectorySecurity"
    Sub AddDirectorySecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
        ' Create a new DirectoryInfoobject.
        Dim dInfo As New DirectoryInfo(FileName)
 
        ' Get a DirectorySecurity object that represents the 
        ' current security settings.
        Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()
 
        'AuthorizationRuleCollection(acl = dSecurity.GetAccessRules(True,True,type.
 
        ' Add the FileSystemAccessRule to the security settings. 
        dSecurity.SetAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))
 
        ' Set the new access settings.
        dInfo.SetAccessControl(dSecurity)
 
    End Sub
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = "C:\test"
        If Directory.Exists(path) = False Then
            Directory.CreateDirectory(path)
        End If
 
        SetDirectoryAccessPolicy(path, FileSystemRights.FullControl, AccessControlType.Allow)
    End Sub
Le résultat de ce code me crée un nouveau groupe " Tout le monde" mais ne définis aucun droit , il n'y a que " contrôle spécial" qui est checké alors que j'ai bien définis " full control"

En espérant que quelqu'un ai une solution a mon problème...

Merci,

A+