Discussion :

[gagaz21]

Bonjour,

Voila je suis coincé avec mon tableau et je n'arrive pas à résoudre le problème.

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
 
 
Function droit(ByVal dir As String, ByVal user As String)
 
 
        Dim sec As FileSecurity = New FileSecurity(dir, AccessControlSections.All)
        Dim dacl As AuthorizationRuleCollection = sec.GetAccessRules(True, True, GetType(NTAccount))
 
        For Each rqt As FileSystemAccessRule In dacl
            Dim N = 2
            Dim T() As String = {rqt.IdentityReference.Value, rqt.AccessControlType.ToString, rqt.FileSystemRights.ToString}
 
 
            T(0) = rqt.IdentityReference.Value
            T(1) = rqt.AccessControlType.ToString
            T(2) = rqt.FileSystemRights.ToString
 
            Dim AChercher As String = "TEST\Util2"
            Dim i As Integer
            For i = 0 To N
 
                If T(0).ToString = AChercher Then
 
                    ListBox1.Items.Add(dir + "" + T(0) + "" + T(1) + "" + T(2))
 
 
                End If
 
            Next i
 
        Next

A savoir que si je n'utilise pas la condition if, le listbox affiche bien tous les résultats. Et quand j'utilise mon critère, aucun résultat n'est retourné,
Si quelqu'un pouvait m'aider..

Merci d'avance.

[mactwist69]

µDans le code que tu donnes, tu n'auras donc qu'un résultat:

L'élément qui a pour "rqt.IdentityReference", "TEST\Util2"

Si ton If ne retourne rien, c'est que aucun éléments n'a pour valeur:

rqt.IdentityReference.Value = TEST\Util2.

Deux conseils:

- Utiliser String.Compare(String1,String2) retourne 0 si c'est égal.

- Mets un point d'arret avant la boucle, ou un espion sur ton tableau ou un MsgBox qui affiche T(0).

Tu verras bien quel valeur est comparer...