Salut...

Je veux écrire dans un fichier texte qui existe déjà. Dans ce fichier il peux 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...

Voici ce que j'ai de fais  mais je ne sais plus quoi écrire comme code pour que ca fonctionne....
J'ai regardé quelques source sur le site mais je ne saisis pas tout... J'ai besoin de votre aide.

Merci d'avance

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

If txtPcode.Text <> ""And txtCoordY.Text <> ""And txtCoordX.Text <> ""Then
Dim ObjetFichier As StreamWriter = New StreamWriter(AppPath & "\Coord.txt")
Try
ObjetFichier.Write(Label7.Text)
Finally
IfNot ObjetFichier IsNothingThen ObjetFichier.Close()
EndTry
Else
MsgBox("Action Impossible")
EndIf
EndSub

Ok merci pour le "True"....

Mais il y a rien qui s'écrit dans mon fichier text...

Le chemin est bon car au démarage du programme je fais la lecture complète de fichier texte....  Lerreur peut venir de où ????
P.S. j'ai modifié quelque peu le code...

Merci de votre aide

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.Write(Enregistrement)
Finally
IfNot ObjetFichier IsNothingThen ObjetFichier.Close()
EndTry
Else
MsgBox("Action Impossible")
EndIf
EndSub

J'ai essayé  ObjetFichier.Writeline(Enregistrement) Au lie de ObjetFichier.Write(Enregistrement)

Marche toujours pas.

On dirais qu'il n'ouvre pas le fichier pour enregistrer.. si je vais voir le ficher texte, la date de modification ne change pas ????


Comprends-tu pourquoi ?????

Merci de ton aide

debug pas a pas tu verra s'il ecrit qque chose ds le fichier

Indigo : Créateur de Classe VB.Net [ Lien ]

Ton code me parrais correcte pourtant

Et bien étant donné que ca ne fonctionne pas....
Ça rentre toujours dans cette condition...
IfNot ObjetFichier IsNothingThen ObjetFichier.Close()

Donc j'ai un bug dans le code..... Mais où

Merci

J'ai essayé ça également

Catch exc As Exception
MessageBox.Show(exc.Message)
Finally

Mais ca rentre jamais dedans...

Pourquoi mon code fonctionne mais ca n'enregistre pas dans mon fichier texte... ???
Le prob peut-il venir de cette ligne de code...(déclaration de la variable AppPath)

Public AppPath AsString = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)

Ici, je suis dans le Bouton Save...

Dim

ObjetFichierW As StreamWriter = New StreamWriter(AppPath & "\Coord.txt", True)

Merci de votre aide