Hello,

En relisant un fichier ligne après ligne et en les réécrivant directement sans toucher à la ligne (...ou la variable dans laqelle elle est stockée...) le fichier de sortie n'est plus de la même taille... Après avoir comparé, le fichier d'entrer et de sortie, (un fichier mpeg en l'occurence), il semble qu'il manque un bout du fichier à la fin....

Et je n'y comprends rien ! voici le code que j'utilise :


Public Sub readWrite()
dim LineBuffer as string

Dim oFileStream As Stream = File.Open(FilePath, FileMode.Open, FileAccess.Read)
Dim oStreamReader As New StreamReader(oFileStream)

Dim oOutputStream As Stream = File.Open(OutPutFile, FileMode.Create, FileAccess.Write)
Dim oStreamWriter As New StreamWriter(oOutputStream)

oStreamReader.BaseStream.Seek(0, SeekOrigin.Begin)

Do
LineBuffer = oStreamReader.ReadLine
oStreamWriter.Write(LineBuffer.ToString)
Loop Until oStreamReader.Peek() = -1

oOutputStream.Flush()
oFileStream.Close()
oOutputStream.Close()

End Sub

Qn peux m'aider ? J'ai essayer en spécifiant le type d'encodage dans les deux stream, mais rien à faire....

HEEEEEELP...

Ray Ban