VB.Net/File Directory/Text File Write

Append String to a Text file

<source lang="vbnet"> Imports System Imports System.IO Imports System.Text

Public Class MainClass

  Shared Sub Main()
       Dim file_stream As New FileStream("test.txt", FileMode.Append)
       Dim bytes As Byte() = New UTF8Encoding().GetBytes("Hello world!")
       file_stream.Write(bytes, 0, bytes.Length)
       file_stream.Close()
  End Sub 

End Class

 </source>

Create Text File

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim TextFile As New StreamWriter("test.txt")
       TextFile.WriteLine("Line 1")
       TextFile.WriteLine("www.vbex.ru")
       TextFile.Close()
       Console.WriteLine("Text File created test.txt")
   End Sub

End Module

 </source>

Reading and Writing to Files

<source lang="vbnet"> Module MainModule

   Public Function ReadTextFromFile(ByVal Filename As String) As String
       On Error Resume Next
       Dim strFileText As String
       Dim MyReader As System.IO.StreamReader = System.IO.File.OpenText(Filename)
       strFileText = MyReader.ReadToEnd
       MyReader.Close()
       Return strFileText
   End Function
   Public Sub WriteTextToFile(ByVal Filename As String, ByVal Text As String)
       Dim MyWriter As System.IO.StreamWriter = System.IO.File.CreateText(Filename)
       MyWriter.Write(Text)
       MyWriter.Close()
   End Sub

End Module

 </source>

Text file Reader and Writer

<source lang="vbnet"> Imports System Imports System.IO Imports System.Text

Public Class MainClass

  Shared Sub Main()
       Dim stream_writer As New StreamWriter("test.txt")
       stream_writer.Write("www.vbex.ru")
       stream_writer.WriteLine("www.vbex.ru")
       stream_writer.Close()
       Dim stream_reader As New StreamReader("test.txt")
       Console.WriteLine(stream_reader.ReadToEnd())
       stream_reader.Close()
  End Sub 

End Class

 </source>