Discussion :

[sebasti1-88]

Bonjour, je debute en vb.net et j'ai un petit soucis.
Je souhaiterai lister tout les sous repertoire d'un repertoire et placer leur nom dans un tableau. J'arrive bien a recuperer les nom des sous repertoire est a les mettre dans un string, mais pas dans un tableau.

Voici mon code :

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
 
        Dim nombreSousRepertoire As Integer = 0
        Dim tableauRep() As String
        Dim liste As String = ""
        Dim s As DirectoryInfo
        Dim cheminFichierVehicule As String = Environ("USERPROFILE")
        cheminFichierVehicule = cheminFichierVehicule & "\vehicules\vehicules.txt"
 
 
        Vehicule.repertoire = Environ("USERPROFILE")
        Vehicule.repertoire = Vehicule.repertoire & "\vehicules\"
        Dim di As New DirectoryInfo(Vehicule.repertoire)
        Dim diArr As DirectoryInfo() = di.GetDirectories()
 
        Dim monStreamWriter As StreamWriter
        monStreamWriter = New StreamWriter(cheminFichierVehicule)
 
        If Directory.Exists(Vehicule.repertoire) Then
            For Each s In diArr
                tableauRep(nombreSousRepertoire) = s.Name
                liste = liste & "/" & s.Name
                nombreSousRepertoire = nombreSousRepertoire + 1
            Next s
            Label1.Text = liste
        Else
            Label1.Text = "Vous n'avez aucun véhicule d'enregistrer"
        End If

l'erreur est sur la ligne tableauRep(nombreSousRepertoire) = s.Name

merci de votre aide

[StormimOn]

La prochaine fois donne l'erreur rencontrée et pas juste la ligne où tu as l'erreur que l'on n'ai pas besoin de notre boule de cristal. Dans le cas présent c'est simple, tu dois avoir une NullReferenceException car tu n'as pas instancié le tableau tableauRep tu l'as juste déclaré.

Sinon passe plutôt par Directory.GetDirectories, tu auras ainsi directement un tableau de chaîne.

[sebasti1-88]

merci de ta reponse aussi rapide.
desolé, l'erreur etait bien celle que tu as dis,

l'exception NullReferenceException n'a pas ete genere ; La référence d'objet n'est pas définie à une instance d'un objet

par contre etant debutant, comment dois je faire pour instancier le tableau ?

merci

rajout :

j'ai essaye avec directory.Getdirectories, ca fonctionne bien, mais j'ai tout le chemin des repertoire, et pas seulement leur noms

[sebasti1-88]

c'est bon, jai resolu mon probleme, voici mon code :

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
 
        Dim nombreSousRepertoire As Integer = -1
        Dim tableauRep() As String
        Dim liste As String = ""
        Dim s As DirectoryInfo
 
 
        Vehicule.repertoire = Environ("USERPROFILE")
        Vehicule.repertoire = Vehicule.repertoire & "\vehicules\"
        Dim di As New DirectoryInfo(Vehicule.repertoire)
        Dim diArr As DirectoryInfo() = di.GetDirectories()
 
        If Directory.Exists(Vehicule.repertoire) Then
            For Each s In diArr
                nombreSousRepertoire += 1
                'tableauRep = Directory.GetDirectories(Vehicule.repertoire)
                ReDim Preserve tableauRep(nombreSousRepertoire)
                tableauRep(nombreSousRepertoire) = s.Name
            Next s
            Label1.Text = "Vous avez " & nombreSousRepertoire & " véhicules d'enregistrer."
            Label2.Text = tableauRep(0) & tableauRep(1) & tableauRep(2)
        Else
            Label1.Text = "Vous n'avez aucun véhicule d'enregistrer."
        End If

merci de votre aide

[StormimOn]

Dans ton code tu redimensionnes ton tableau à chaque tour de boucle. Comme tu connais sa taille dès le début (longueur du tableau diArr) tu devrais initialiser ton tableau avant la boucle.