Filelistbox et multiselection

Bonjour,

J'essaye de récupérer le nom des fichiers de toutes les lignes sélectionnées dans mon filelistbox(ici fichiers) mais le programme semble ne retenir que le nom de la dernière ligne sélectionnée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 1 To fichiers.ListCount 'si ligne sélectionnée If fichiers.Selected(i) Then 'récupération du nom du fichier Varfichier = Replace(fichiers.FileName, ".txt", "") 'renommer la ligne Name fichiers.Path & "\" & fichiers.FileName As fichiers.Path & "\" & Varfichier & ".old"   end if   Next i

---

Comment faire car avec ce code le nom du ficier (fichiers.FileName ) reste en permanence le même et ne change pas, comme si je n'avais que sélectionné la dernière ligne:cry:

Merci

Nicolas :P

le 1er index de la filelistbox est 0 et pas 1
Le dernier index est listcount-1 et pas Liscount
Filename renvoie le nom d'un fichier sélectionné
Il te faut utiliser l'index et pas filename tout seul

le principe est le même que celui qui prévaut pour une listbox
Je n'ai pas le temps de faire "tout le machin" pour alimenter une filelistbox mais inspire-toi de ce qui doit être écrit pour une listbox et que voilà :

Code:

---

1 2 3 4 5 6 7

Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then MsgBox List1.List(i) End If Next End Sub

---

Merci c'est bien fichiers.List(i) au lieu de fichiers.FileName

Merci:P