problème avec boucle While

Bonjour,
voila ce bout de code:

Code:

---

1 2 3 4 5 6 7

Dim j As Integer Do Dim filetodelete As String = List1.Items.Item(j).ToString MsgBox(filetodelete) System.IO.File.Delete(filetodelete) j = j + 1 Loop While j < List1.Items.Count - 1

---

s'il vous plait quelqu'un peut me dire pourquoi cette boucle s'exécute 10 fois seulement et ne correspond pas au nombre d'éléments dans la listbox??
merciiii d'avance

Bonjour,

Parce que tu incrémentes ta variable j. Tu dois avoir aux alentours de 20 fichiers à supprimer.

Tu t'es trompé de boucle. Un while suffisait.

Code:

---

1 2 3 4 5 6

while List1.Items.Count > 0 Dim filetodelete As String = List1.Items.Item(0).ToString MsgBox(filetodelete) System.IO.File.Delete(filetodelete) End While

---

j'ai 19 fichiers pdf à supprimer.
cette ligne:

Code:

---

Dim filetodelete As String = List1.Items.Item(0).ToString

---

pointe toujours sur le premier élément de la liste et je peux pas parcourir le dossier pour supprimer les autres fichiers.
mercciiiiii

Oui, je pense que j'ai mal lu, en aucun cas tu ne modifie ta collection en supprimant la ligne correspondant au fichier que tu souhaites supprimer.

A part l'initialisation de j, même si par défault le compilateur aurait dû te dire que tu utilises une variable non initialisée, sinon je ne vois rien de choquant, à part si nous n'avons pas tous le code!!!