次の例は、ストリームの末尾に追記を行うものです。 ストリームを開き、ストリームの末尾にシークしてから書き込みを行うことで、既存の内容の後ろに新たな内容を追記しています。
Seekメソッドを使ってStreamの末尾にシークしてから内容を追記する
Imports System
Imports System.IO
Class Sample
Shared Sub Main()
Using stream As Stream = File.OpenWrite("sample.dat")
' ストリームの末尾までシーク
stream.Seek(0, SeekOrigin.End)
' 書き込むデータが格納されているバイト配列
Dim buffer() As Byte = New Byte(7) {&h41, &h42, &h43, &h44, &h45, &h46, &h47, &h48}
' bufferの8バイト分をstreamに書き込む
stream.Write(buffer, 0, 8)
End Using
End Sub
End Class