cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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