Dim FStreami As New IO.FileStream("C:\logfiles\log.dat", _
  IO.FileMode.OpenOrCreate, IO.FileAccess.Write, IO.FileShare.Write)
        FStreami.Close()
        Dim sFilePathe As String = "C:\logfiles\log.dat"
        Dim streami As IO.FileStream = New IO.FileStream(sFilePathe, _
          IO.FileMode.Open)
        Dim SWriter As IO.StreamWriter = New IO.StreamWriter(streami, _
        System.Text.Encoding.Default)