Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lister dans un listbox, le contenu d'un dossier

2 réponses
Avatar
Alain Lebayle
Bonjour,
j'ai un userform avec un listbox en vba, je souhaite pouvoir lister le
contenu d'un dossier soit C:\TOTO,
Je vous remercie
Alain

2 réponses

Avatar
JB
Bonsoir,

Private Sub UserForm_Initialize()
repertoire = "C:TOTO"
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub


JB
http://boisgontierjacques.free.fr/
Avatar
Alain Lebayle
Bonsoir JB,
Un très grand merci à toi.
Bravo pour ta célérité.
Alain

JB a écrit :
Bonsoir,

Private Sub UserForm_Initialize()
repertoire = "C:TOTO"
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub


JB
http://boisgontierjacques.free.fr/