1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Lister des dossiers dans une listbox

Résolu
Signaler
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
 -
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 -
Bonjour,

Voila mon problème:
j'ai une textbox dans laquelle s'affiche le chemin d'accès à un répertoire que l'utilisateur choisit.

Je voudrais savoir comment faire pour lister DANS UNE LISTBOX, tous les dossiers compris dans ce répertoire. (Je ne parle pas des sous-répertoires).

Par exemple, dans la textbox est inscrit C:\

Je veux que dans la liste s'affiche tous les dossiers présents à la racine de C:\

Mais je ne veux que le nom du dossier, je ne veux pas son chemin dans la listbox.

Merci pour votre aide !

8 réponses

Réponse 1 / 8
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 16
Voici le code source :

============================================

Dir1.Path = Text1
TotalList = Dir1.ListCount
i = 0
List1.Clear
Do Until i = TotalList
p1 = Len(Dir1.List(i))
sLetter = ""
Do Until sLetter = ""
sLetter = Mid(Dir1.List(i), p1, 1)
If sLetter = "" Then Exit Do
p1 = p1 - 1
Loop
p1 = p1 + 1
List1.AddItem Mid(Dir1.List(i), p1)
i = i + 1
Loop

============================================
1
Réponse 2 / 8
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 16
Voici le script :

============================================
Dir1.Path = Text1
TotalList = Dir1.ListCount
i = 0
List1.Clear
Do Until i = TotalList
p1 = Len(Dir1.List(i))
sLetter = ""
Do Until sLetter = ""
sLetter = Mid(Dir1.List(i), p1, 1)
If sLetter = "" Then Exit Do
p1 = p1 - 1
Loop
p1 = p1 + 1
List1.AddItem Mid(Dir1.List(i), p1)
i = i + 1
Loop
============================================

Chris
1
Réponse 3 / 8
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 16
Salut,

Place ton chemin dans le 'PATH' d'un contrôle DirListBox,

Ensuite utilise une boucle qui va changer l'index dans cette DirListBox et te fournir le Text de celui-ci

Chris..
J'ai un exemple avec une liste de fichier si tu veux
0
Réponse 4 / 8
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
 2
Bah c'est ce que j'avais fait, mais ca me "sautait" quelques dossiers... Je ne les avais pas tous dans la listbox !
0
Réponse 5 / 8
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 16
Aiee,

Attend je te fait un script et le test pour voir
0
Réponse 6 / 8
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
 16
Alors voilà je l'ai tester plusieurs fois et aucun directory ne manque. Place un contrôle DirListBox, Textbox, Listbox.

le script est :
============================================
Dir1.Path = Text1
TotalList = Dir1.ListCount
i = 1
List1.Clear
Do Until i = TotalList
List1.AddItem Dir1.List(i)
i = i + 1
Loop
============================================
0
Réponse 7 / 8
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
 2
Bon, ca ca marche, je t'en remercie !

Au passage, ce n'est pas i=1 mais i=0

Sinon, comment faire pour que le début (chemin) ne s'affiche pas, qu'il n'y est que le nom du dossier???
0
Réponse 8 / 8
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
 2
Merci beaucoup pour tes réponses efficaces et rapides !

Je clique sur "Réponse acceptée !"
0
Posez votre question