Create StreamWriter with Encoding UTF8 and buffer size
Imports System
Imports System.IO
Imports System.Text
Public Class Test
Public Shared Sub Main()
Dim FileName As String= "test.txt"
Dim TextToAdd As String = "data"
Dim Fs As FileStream = New FileStream(FileName, FileMode.CreateNew, FileAccess.Write, FileShare.None)
Dim SwFromFileStreamUTF8Buffer = New StreamWriter(Fs, System.Text.Encoding.UTF8, 512)
SwFromFileStreamUTF8Buffer.Write(textToAdd)
SwFromFileStreamUTF8Buffer.Flush()
SwFromFileStreamUTF8Buffer.Close()
End Sub
End Class
Related examples in the same category