Afficher une liste de dossiers

Signaler
Messages postés
27
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
4 septembre 2002
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
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?

4 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
'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
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
-------------------------------
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?
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
-------------------------------
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?
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
-------------------------------
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?
0