Lister des dossiers dans une listbox [Résolu]
A voir également:
- Asp list box
- Asp listbox - Meilleures réponses
- Delphi listbox - Meilleures réponses
- Lister les dossiers d'un répertoire - Codes sources - ASP / ASP.NET (ASP.Net)
- ColdFusion : Lister un dossier - CodeS SourceS - Guide
- Lister les dossiers et les fichiers dans une textbox + menu contextuelle - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- C# / .NET : Lister un dossier et ses fichiers - CodeS SourceS - Guide
- Listez les dossiers, les sous dossiers et les fichiers tres rapidement. - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
8 réponses
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
============================================
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
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
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
Bah c'est ce que j'avais fait, mais ca me "sautait" quelques dossiers... Je ne les avais pas tous dans la listbox !
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
============================================