Salut
Je viens de tester ceci avec une liste dont la propriété Multiselect = 2 pour Extended.
1 2 3 4 5 6 7 8 9
| Private Sub cmdSupprimerItem_Click()
Dim i As Integer
i = 0
Do While i < List1.ListCount
' code pour supprimer le fichier...
If List1.Selected(i) Then List1.RemoveItem i
i = i + 1
Loop
End Sub |
Ça fonctionne bien
Ceci dit, pour une liste à sélection simple, pas la peine de se fatiguer, une seule ligne suffit.
List1.RemoveItem List1.ListIndex
[Edit] Avant que j'oublie, puisque la liste contient des noms de fichiers, pour pouvoir effacer le fichier à partir de son nom complet (avec le chemin), il vaut mieux procéder à l'effacement du fichier avant de supprimer son nom de la liste. Ou encore mettre temporairement ce nom dans une variable.
Partager