Lister les répertoires d'un répertoire

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.

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




-------------------------------
Réponse au message :
-------------------------------

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.