Discussion :

[Oh!Tofocus]

Bonjour
J'ai le chemin d'un dossier et je voudrais récupérer la liste des sous dossiers si ils existent !
Mais je ne sais pas du tout comment faire
et vous ( je suis sur que oui )

[kiki29]

Salut, à adapter

[ucfoutu]

Bonjour,

peux-tu être plus précis ?
S'agit-il de :
1) la liste des sous-dossiers (au seul 1er degré)
ou
2) la liste (déployée) des sous_dossiers et des sous-dossiers éventuellement présents dans chacun des sous-dossiers (arborescence complète)

Le traitement du cas 2 étant un peu plus complexe que celui du cas 1 (simple)

[Oh!Tofocus]

peux-tu être plus précis ?

Pour l'instant c'est une recherche au 1er degré ( plus tard peut être l'arborescence....)

merci à kiki29 pour ses exemples

mais j'ai trouvé sur le net ce bout de code que j'ai adapté pour remplir une listbox

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
Sub ChercherRépertoire(MyPath) ' routine qui charge une listbox
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
 
            ListBox1.AddItem (Myname)
 
        End If  '
    End If
    Myname = Dir    ' Extrait l'entrée suivante
Loop
If ListBox1.ListCount = 0 Then
 
    ListBox1.AddItem ("-----Aucun Dossier-----")
 
End If
End Sub

A+