VB.Net Tutorial/Stream File/FileMode

Материал из VB Эксперт
Перейти к: навигация, поиск

FileMode.OpenOrCreate

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

Public Class Tester

   Public Shared Sub Main
       Dim fs As System.IO.FileStream
       Dim w As System.IO.BinaryWriter
       Dim buffer As String
       Dim c As Char
       c = Chr(9)
       fs = New System.IO.FileStream("test.txt", IO.FileMode.OpenOrCreate)
       w = New System.IO.BinaryWriter(fs)
       w.Seek(0, System.IO.SeekOrigin.Begin)
       w.Write("writing data via BinaryWriter")
       w.Close()
       fs.Close()
   End Sub

End Class</source>

FileMode.Open with FileAccess.Read

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

Public Class Tester

   Public Shared Sub Main
       Dim f As System.IO.FileStream
       Dim r As System.IO.StreamReader
       Dim mylength As Integer
       Dim i As Integer
       f = New System.IO.FileStream("test.txt", IO.FileMode.Open, IO.FileAccess.Read)
       r = New System.IO.StreamReader(f)
       Console.WriteLine(r.ReadToEnd())
       f.Close()
       r.Close()
   End Sub

End Class</source>