VB.Net Tutorial/Stream File/StreamWriter

Create StreamWriter from FileStream

<source lang="vbnet">Imports System.IO public class Test

  public Shared Sub Main
       Dim objSW As StreamWriter
       Dim objFS As FileStream
       objFS = New FileStream("test.txt", FileMode.Create)
       objSW = New StreamWriter(objFS)
       objSW.Write("asdf")
       objSW.Close()
       objFS.Close()

  End Sub

End class</source>

Save various data types to a text file

<source lang="vbnet">Imports System.IO public class Test

  public Shared Sub Main
       Dim objSW As StreamWriter
       Dim objFS As FileStream
       Dim dteBDate As Date = #2/8/1960 1:04:00 PM#
       objFS = New FileStream("test.txt", FileMode.Create)
       objSW = New StreamWriter(objFS)
       With objSW
           .WriteLine(9.009)
           .WriteLine(1 / 3)
           .Write("The current date is ")
           .Write(Now())
           .WriteLine(True)
           .WriteLine("Your age in years is {0}, in months is {1}, " & _
              "in days is {2}, and in hours is {3}.", _
              DateDiff(DateInterval.Year, dteBDate, Now), _
              DateDiff(DateInterval.Month, dteBDate, Now), _
              DateDiff(DateInterval.Day, dteBDate, Now), _
              DateDiff(DateInterval.Hour, dteBDate, Now))
           .Close()
       End With
       objFS.Close()
  End Sub

End class</source>

Use StreamWriter and StreamReader to deal with text file

<source lang="vbnet">Imports System.IO public class Test

  public Shared Sub Main
       Dim file_name As String = "test.txt"
       Dim stream_writer As New StreamWriter(file_name)
       stream_writer.Write("The quick brown fox")
       stream_writer.WriteLine(" jumps over the lazy dog.")
       stream_writer.Close()
       Dim stream_reader As New StreamReader(file_name)
       Console.WriteLine(stream_reader.ReadToEnd())
       stream_reader.Close()
  End Sub

End class</source>

The quick brown fox jumps over the lazy dog.