[VB6]Ecriture dans une ListBox à partir d'une FileListBox

Bonjour,
J'ai un problème pour écrire dans ma ListBox à partir de ma FileListBox. En effet, une fois l'écriture faite, je me suis aperçu que chaque élément de la FileListBox est écrit deux fois dans ma ListBox, je ne sais pas quoi faire pour arranger ça !

voici mon code :

Code:

---

1 2 3 4 5

Dim i As Long For i = 0 To File1.ListCount - 1 File1.ListIndex = i List1.AddItem File1.FileName Next i

---

Merci de votre aide !
A bientot !

Code:

---

1 2 3 4 5 6 7 8

Dim i As Long List1.Clear '<==== Nettoyage For i = 0 To File1.ListCount - 1 'File1.ListIndex = i 'List1.AddItem File1.FileName List1.AddItem File1.List(i) '<==== plus rapide Next i MsgBox "Nbrdans File1: " & File1.ListCount & vbCrLf & "Nbr dans List1: " & List1.ListCount

---

Merci beaucoup, ça marche à merveille ! Cependant dans mon cas je n'avais pas besoin du List1.clear et de la MsgBox!
Merci à bientôt !