Lister des dossiers dans une listbox [Résolu]
z980x
898
Messages postés
jeudi 6 juin 2002Date d'inscription
26 juillet 2007
Dernière intervention
-
25 sept. 2004 à 13:26 - Dernière réponse :
cboulas
2641
Messages postés
mercredi 2 juin 2004Date d'inscription
8 janvier 2014
Dernière intervention
- 25 sept. 2004 à 14:26
- Lister des dossiers dans une listbox
- Lister les dossiers d'un répertoire » Codes sources - ASP / ASP.NET (ASP.Net)
- Lister les dossiers et les fichiers dans une textbox + menu contextuelle » Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Lister les dossiers des disques locaux, avec la méthode wmi + classe collection » Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Lister les dossiers, sous-dossiers et nombre de fichiers » Codes sources - PHP (Fichier / Disque)
- Lister une colonne dans un listbox... (Résolu) » Forum - VBA Office (Excel, Word ...)
8 réponses
Meilleure réponse
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
============================================
============================================
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
============================================
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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
============================================
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
============================================
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
============================================
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.