crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 30 déc. 2005 à 15:53
Dim F as string ' Déclaration d'une variable tampon
List1.Clear ' On efface le contenu de la listbox
F = Dir("C:\MonRep\*.txt") ' On recherhce les fichiers texte du dossier c:\monrep
While F <> "" ' Tant que Dir nous retourne un nom de fichier
List1.Additem F ' On ajoute celui-ci à la listbox
F = Dir ' On recherche le ficheir suivant
Wend ' Fin de boucle
Sinon, tu peux te pencher du coté du controle FileListBox ...