ListBox: problême pour sauvegarder

Salut, j'ai un problême avec ce code qui permet de sauvegarder le contenu d'un ListBox dans un fichier:

Dim Dates As String
Dim i As Integer
Dim j As Integer

' Chemin fichier et ouverture
FileOpen(1, path & "\" & nom & "\" & "\Gestion\sto.gcc", OpenMode.Binary)

' on parcoure donc toutes les lignes
For i = 0 To ListView1.Items.Count

' On met dans Dates l'item de la première colonne
Dates = ListView1.Items(i).Text & vbTab ' ici un espace

' on parcoure toutes les colonnes
For j = 1 To 9
' On rempli ta variable
Dates = Dates & ListView1.Items(i).SubItems(j).Text & vbTab 'ici un espace
Next j

' on ecrit dans le fichier dés qu'une ligne est terminées
FilePut(1, Dates) ' Saut de ligne

Next i

' Une fois tout fini, ferme fichier
FileClose(1)

Si vous trouvez la solution...

Merci d'avance

Bye

http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

qu'est ce qui ne va pas ? y'a rien qui se sauvegarde ? ou tu as un erreur ? si oui laquelle ?

http://webman.developpez.com/article...le/vbnet/#L2.2

Ce serait-y pas :
For i = 0 To ListView1.Items.Count-1 plutôt qur
For i = 0 To ListView1.Items.Count
Allez savoir