Lister les répertoires d'un répertoire

Signaler
Messages postés
8
Date d'inscription
lundi 9 octobre 2000
Statut
Membre
Dernière intervention
4 janvier 2004
-
Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
-
Bonjour à tous,

Je cherche à lister dans une combobox les sous-répertoires d'un répertoire, mais uniquement ceux qui se trouvent à sa racine (et pas les sous-répertoires des sous-répertoires). Tout cela si possible sans API (mais si c'est indispensable...).

Merci à tous ceux qui pourront répondre à cette question.

1 réponse

Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
en admettant que tu es un bouton command1 qui permettra d'executer ta commande. Un text qui contiendra le répertoire que tu veux lister
et enfin un combo pour recevoir les infos :

Private Sub Command1_Click()
Combo1.Clear
If (Right$(Text1.Text, 1) <> "") Then Text1.Text = Text1.Text + ""

MyName = Dir(Text1.Text, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(Text1.Text & MyName) _
And vbDirectory) = vbDirectory Then
Combo1.AddItem MyName
End If
End If
MyName = Dir
Loop

End Sub
0