Lister tous les noms de dossiers d'un répertoire dans une liste déroulante

Version imprimable

bonjour,

j'aimerais lister tous les noms des dossiers d'un répertoire et les lister dans une liste déroulante
j'ai trouvé un exemple de code mais j'ai une erreur d'éxécution pour "ListBox.List"

erreur de compilation : membre de méthode ou de données introuvable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub ChercherRépertoire() 
Dim Liste() As String 
Dim a As Integer 
a = 0 
MyPath = "c:\temp\" 
MyName = Dir(MyPath, vbDirectory) 
Do While MyName <> "" 
             ' Ignore le répertoire courant et le répertoire contenant le répertoire courant 
    If MyName <> "." And MyName <> ".." Then 
            ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire. 
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then 
            ReDim Preserve Liste(a) 
            Liste(a) = MyName 
        End If  ' 
    End If 
    MyName = Dir    ' Extrait l'entrée suivante 
    Loop 
ListBox.List = Liste 
End Sub

merci d'avance

ps : si vous avez d'autre solutions je suis preneur !!!

Alex

Si la zone de liste modifiable, dans le "formulaire1" s'appelle "ListBox"
propriété origine source = "Liste valeurs",
voici la sub pour alimenter le contenu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ChercherRépertoire()
Dim Liste As String
Dim a As Integer
a = 0
MyPath = "c:\temp\"
myName = Dir(MyPath, vbDirectory)
Do While myName <> ""
             ' Ignore le répertoire courant et le répertoire contenant le répertoire courant
    If myName <> "." And myName <> ".." Then
            ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire.
        Liste = Liste & myName & ";"
    End If
    myName = Dir    ' Extrait l'entrée suivante
    Loop
'pour enlever le ; final
Liste = Left(Liste, Len(Liste) - 1)
Forms!Formulaire1.ListBox.RowSource = Liste
End Sub

17/12/2007, 16h33
alexkickstand

re

Bonjour, merci beaucoup pour ton aide ca fonctionne au poil !!!

merci encore

Alex

Hello je viens de me rendre compte que si j'ai des fichiers a la racine de mon "repertoire_test" il me les liste dans la listbox

code source :

Code:

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
 
Private Sub EntêteFormulaire_click()
 
   Call ChercherRépertoire
 
End Sub
 
Sub ChercherRépertoire()
Dim Liste As String
Dim a As Integer
a = 0
MyPath = "c:\repertoire_test\"
myName = Dir(MyPath, vbDirectory)
Do While myName <> ""
' Ignore le répertoire courant et le répertoire contenant le répertoire courant
If myName <> "." And myName <> ".." Then
' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire.
Liste = Liste & myName & ";"
End If
myName = Dir ' Extrait l'entrée suivante
Loop
'pour enlever le ; final
Liste = Left(Liste, Len(Liste) - 1)
Forms!test.ListBoxClient.RowSource = Liste
End Sub

merci d'avance

Alex