Afficher une liste de dossiers

cs_LeRoux Messages postés 27 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 4 septembre 2002 - 12 juil. 2002 à 17:03
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 14 juil. 2002 à 00:42
j'ai besoin d'afficher...das u listbox...la liste des dossier contenus dans un certain dossier.

Ex: Dans le dossier Skins...j'ai les dossiers/fichiers Flames, Blue, Red et active.txt

Je veu lister dans un list box la liste des dossiers contenus dans Skins...comment faire?

1 réponse

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
14 juil. 2002 à 00:42
'Une feuille avec un contrôle DirListBox (Dir1) et une ListBox (List1)
Private Sub Form_Load()
Dir1.Visible = False 'si on ne veut pas voir la DirListBox
Dim i As Integer, Dossier As String
Dir1.Path = "C:\Mon Dossier\Skins" '20 caractères , 21 avec le \ final
For i = 0 To Dir1.ListCount - 1 'on supprime C:\Mon Dossier\Skins\ (21 caractères)
Dossier = Mid$(Dir1.List(i), 22) 'pour garder seulement le nom du sous-dossier (à partir du 22ème caractère)
List1.AddItem Dossier 'et on l'écrit dans la ListBox
Next i
End Sub
0
Rejoignez-nous