Salut...

Je veux écrire dans un fichier texte qui existe déjà. Dans ce fichier il peut y avoir un nombre X de ligne des texte.

Je veux donc aller écrire sur la dernière ligne du fichier, sur une nouvelle ligne.

Je ne suis pas tres habile avec le StreamWriter et il me manque quelque ligne de code pour finaliser l'écriture du fichier...

Jusqu'à présent, il n'enregistre rien dans le fichier texte

Merci d'avance

PrivateSub cdmSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmSave.Click
Dim Enregistrement AsString

If txtPcode.Text <> ""And txtCoordY.Text <> ""And txtCoordX.Text <> ""Then

Dim ObjetFichier As StreamWriter = New StreamWriter(AppPath & "\Coord.txt", True)
Try
Enregistrement = txtPointSaisi.Text & Space(1) & txtCoordY.Text & Space(1) & txtCoordX.Text & Space(1) & "0" & Space(1) & txtPcode.Text
ObjetFichier.WriteLine(Enregistrement)
Finally
IfNot ObjetFichier IsNothingThen ObjetFichier.Close()
EndTry
Else
MsgBox("Action Impossible")
EndIf
EndSub

Je pense qu'il te manque
ObjetFichier.Flush()

Je mets ça où ?

soit après
ObjetFichier.WriteLine(Enregistrement)
ObjetFichier.Flush()

ou bien il me semble qu'a la place
ObjetFichier.Close()

On a 
ObjetFichier.Dispose() -> qui correspond a Flush + Close.

En fait tu le met ou tu veux - donc soit après chaque WriteLine soit une fois que toutes tes lignes sont écrites

Merci pour ta réponse mais...

Ta premiere option = Ça change rien, ça n'écrit pas dans le fichier
et pour la deuxième option je n'ai pas la posibilité de prendre le "Dispose" je n'ai que
AutoFlush
Close
Write
Flush
WriteLine



Comment je fais dans le Debug pour savoir s'il semble vouloir écrire une ligne de texte.. La seule variable que je peux vérifier est ma varaiable "Enregistrement" mais je ne peux voir que vaut ObjetFichier.WriteLine(Enregistrement).
C'est normale du fait que c'est un Objet ???

merci encore

J'oubliais qu'il n'y avait pas de Dispose dans le CF.

Try
Enregistrement = txtPointSaisi.Text & Space(1) & txtCoordY.Text & Space(1) & txtCoordX.Text & Space(1) & "0" & Space(1) & txtPcode.Text
ObjetFichier.WriteLine(Enregistrement)
ObjetFichier.Flush()

'Place Un catch pour recupérer l'erreur - Je ne me souviens plus très bien de la syntaxe mais ca doit être dans le style
Catch Exception ex
    messagebox.show(ex.Message)
Finally

Ouin et bien j'y comprends rien...

Ça ne sort pas d'erreur ????

ok ca marche...

Ca marche pas sur l'émulateur et je ne saisi pas pourquoi...
Mais ca marche sur mon iPAQ


Merci de ton aide...

open
write ou writeln
flush 'Ecrit réellement les données dans le fichier (car elle ne sont en mémoire ) donc à éxécuter soit sur un bloc, soit après chaque ligne
close

Pour la procédure
Try
....
Catch ex as Exception
    msgbox(ex.Message)
Finally
......
End try

Pour l'émulateur, normalement cela doit fonctionner, vérifie les chemins et au besoin raffraichie ta vue dans l'explorateur

Le savoir ne sert que si il est partagé par tous