cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 juil. 2002 à 02:24
'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\
Dossier = Mid$(Dir1.List(i), 18) 'pour garder seulement le nom du sous-dossier
List1.AddItem Dossier 'et on l'écrit dans la ListBox
Next i
End Sub
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 juil. 2002 à 02:26
-------------------------------
Réponse au message :
-------------------------------
'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\
Dossier = Mid$(Dir1.List(i), 18) 'pour garder seulement le nom du sous-dossier
List1.AddItem Dossier 'et on l'écrit dans la ListBox
Next i
End Sub
-------------------------------
Réponse au message :
-------------------------------
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?
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 juil. 2002 à 02:27
-------------------------------
Réponse au message :
-------------------------------
'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\
Dossier = Mid$(Dir1.List(i), 22) 'pour garder seulement le nom du sous-dossier
List1.AddItem Dossier 'et on l'écrit dans la ListBox
Next i
End Sub
-------------------------------
Réponse au message :
-------------------------------
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?
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 13 juil. 2002 à 02:31
-------------------------------
Réponse au message :
-------------------------------
'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
'CECI EST LA BONNE REPONSE ; c'est bien 22 et pas 18
-------------------------------
Réponse au message :
-------------------------------
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?