Discussion :

[terminatorsk8]

Bonjour a touse voila le but de mon code est de parcourir des dossiers et sous dossiers afin d'en afficher le contenue dans une listbox.
Je m'explique j'ai un dossier
data qui contient lui des dossier A, B , C , D , E ect...
et ensuite dans cest dossier sont stockée des nom de famille.
Je suis arrivé a pondre ce code met quand je clilc sur mon bouton
le debug me dit Nombres d'argument incorect ou affectation de propriété incorect.
pouvez vous me corriger mon code svp . Merci d'avance et bonne soirée

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
40
Dim niveau_actuel As Integer
 
 
Sub parcours(chemin As String, niveau As Integer)
Dim i As Integer
Dim n As Integer
Dim s As String
Dim t() As String
 
If niveau_actuel > 2 Then Exit Sub
If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
s = Dir(chemin + "*.*", vbDirectory)
While s <> ""
If s <> "." And s <> ".." And GetAttr(chemin + s, vbDirectory) = vbDirectory Then
 
    n = n + 1
    ReDim Preserve t(n)
    t(n) = chemin + s
    List1.AddItem s
    End If
    s = Dir
    Wend
 
 
    i = 1
    niveau_actuel = niveau_actuel + 1
    While i <= n
        DoEvents
        parcours t(i), 2
        i = i + i
        Wend
        niveau_actuel = niveau_actuel - 1
 
End Sub
 
Private Sub Command1_Click()
niveau_actuel = 1
parcours "C:\windows\temp trinity\CLIENT\data\", 1
 
End Sub

[terminatorsk8]

personne ne peux me donner un ptit coup de pouce

[BertrandA]

C'est assez limpide, l'interpréteur signale une erreur sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetAttr(chemin + s, vbDirectory)

Et le prototype de cette fonction est le suivant, avec un seul argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetAttr(pathname)

Je n'ai pas regardé le reste du code en détail.

[terminatorsk8]

D'accord je peut etre un erreur de ma part je vais regardé ca de plus près.Merci pour ta réponce.
Sinon quelqu'un peut-il valider mon code svp.

[Catbull]

J'ai un doute sur la réussite de ton code. La fonction Dir ne peut pas être employée de manière récursive.

Voici un Extrait de msdn :

La fonction Dir renvoie le premier nom de fichier correspondant à l'argument pathname. Pour extraire d'autres noms de fichier correspondant à l'argument pathname, appelez de nouveau la fonction Dir sans préciser d'arguments. Quand tous les fichiers ont été indiqués, la fonction Dir renvoie une chaîne de longueur nulle (""). Lorsqu'une chaîne de longueur nulle a été renvoyée, vous devez indiquer l'argument pathname dans les appels ultérieurs de la fonction ou une erreur se produit. Vous pouvez indiquer un nouvel argument pathname sans avoir extrait tous les noms de fichier correspondant à l'argument pathname courant. Il est cependant impossible d'appeler la fonction Dir de manière récursive. Les appels Dir comportant l'attribut vbDirectory ne renvoient pas continuellement les sous-dossiers.

Utile l'objet FileSystemObject. Il est très facile de mettre en oeuvre la récursivité afin de parcourir l'arborescence d'un répertoire. Il y a des exemple sur le forum. Bonne recherche

[terminatorsk8]

Ok merci , apres correction de mon code , j'arrive a affichier mon dossier et mes sous dossier , comment faire pour affiché juste mes sous dossiers?
Mon code actuel est le suivant :

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
40
41
42
43
 
Dim niveau_actuel As Integer
 
 
Sub parcours(chemin As String, niveau As Integer)
Dim i As Integer
Dim n As Integer
Dim s As String
Dim t() As String
n = 0
i = 0
 
If niveau_actuel > 2 Then Exit Sub
If Right(chemin, 1) <> "\" Then chemin = chemin + "\"
s = Dir(chemin + "*.*", vbDirectory)
While s <> ""
If s <> "." And s <> ".." And GetAttr(chemin + s) = vbDirectory Then
 
    n = n + 1
    ReDim Preserve t(n)
    t(n) = chemin + s
    List1.AddItem s
    End If
    s = Dir
    Wend
 
 
    i = 1
    niveau_actuel = niveau_actuel + 1
    While i <= n
        DoEvents
        parcours t(i), 1
        i = i + i
        Wend
        niveau_actuel = niveau_actuel - 1
 
End Sub
 
Private Sub Command1_Click()
niveau_actuel = 1
parcours "C:\windows\temp trinity\CLIENT\data\", 2
 
End Sub

[jmfmarques]

Tu en connais le chemin par construction, non ?
Il te suffit alors de ne pas afficher si tu n'as que ce chemin lors de la lecture dans ta boucle.