Discussion :

[smilingdreamer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

Nicolas

[jmfmarques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[smilingdreamer]

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

Merci