Sujet Précédent Sujet Suivant

Lister les répertoires d'un répertoire

MasterGone Messages postés 8 Date d'inscription lundi 9 octobre 2000 Statut Membre Dernière intervention 4 janvier 2004 - 14 juin 2002 à 17:12
cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 - 21 juin 2002 à 20:10
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

Réponse 1 / 1
cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 2
21 juin 2002 à 20:10
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

Discussions similaires

Lister tous les sous répertoires et les fichiers
Magentha -
Whismeril -

6 réponses
Probleme Chemin UNC dans CMD
Skalouche11 -
Skalouche11 -

9 réponses
Choisir un répertoire d'installation !
brice_nice -
Bidou -

1 réponse
Répertoire téléphonique
cs_LorentZ -
hanouna2008 -

2 réponses
liste repertoires et sous repertoires
jonguerre -
kabil ah -

4 réponses
Rejoignez-nous