Affichage des sous dossiers d'un dossier

**Durochat** · 19/05/2012, 10h16

Bonjour,
Je désire afficher les 'sous-dossiers' contenu dans un 'dossier' de Window.
Exemp. C:\Program Files (86)\Facturation\Années\Là se trouvent les sous-dossiers représentant des années. (2000, 2001 etc)
Voila ce que j'utilise comme code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir("C:\Program 
'Do While ligne <> ""
    DoEvents
 
    ListBox1.AddItem ligne
    ligne = Dir()
Loop
End Sub

Aucun des sous-dossiers n'apparaît dans la 'box'

Quelqu'un pourrait-il me donner un conseil.?
Merci par avance.
Bon Week-End
Bien cordialement
Roger Durochat

**Philippe Tulliez** · 19/05/2012, 11h18

Bonjour,
En tapant F1 sur la commande DIR, tu aurais obtenu un exemple de code.
Voici un code qui liste les sous-répertoire de Z:\Tests, inspiré de l'aide de l'éditeur de VBA Excel.

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
Option Explicit
Const myPath As String = "z:\Tests\" ' Chemin d'accès de départ
Sub FolderList()
 Dim myFolder As String, lst As String
 ' Affiche les noms des dossiers dans myPath
 myFolder = Dir(myPath, vbDirectory)    ' Extrait la première entrée.
 Do While myFolder <> ""    ' Commence la boucle.
     ' Ignore le dossier courant et le dossier
     ' contenant le dossier courant.
     If myFolder <> "." And myFolder <> ".." Then
         ' Utilise une comparaison au niveau du bit pour
         ' vérifier que myFolder est un dossier.
         If (GetAttr(myPath & myFolder) _
             And vbDirectory) = vbDirectory Then
             lst = lst & myFolder & vbCrLf   ' Affiche l'entrée uniquement si elle
         End If    ' Représente un dossier.
     End If
     myFolder = Dir    ' Extrait l'entrée suivante.
 Loop
 ' Affiche la liste
 MsgBox lst
End Sub