FICHIERS

hhhp2004

salut,

jai 1 fonction et un sub servant a lire et ecrirer dans un fichier

Private Function lireFichier(chemin As String) As String
Dim numeroFichier As Long

numeroFichier = FreeFile
Open chemin For Input As #numeroFichier
 lireFichier = Input(LOF(numeroFichier), #numeroFichier)
Close numeroFichier

End Function

Private Sub ecrireFichier(chemin As String, quoi As String)
Dim numeroFichier As Long

numeroFichier = FreeFile
Open chemin For Output As #numeroFichier
 Print #numeroFichier, quoi
Close numeroFichier

End Sub

le probleme cest que quand jecris dans un fichier avec ecrireFichier, il y a toujours un vbcrlf qui est ajoute a la fin, comment resoudre?

merci