Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Create File with FileMode CreateNew

Option Explicit On  Option Strict On Imports System Imports System.IO Class MyStream     Private Const FILE_NAME As String = "Test.data"     Public Shared Sub Main()         Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)         Dim w As New BinaryWriter(fs)         Dim i As Integer         For i = 0 To 10             w.Write(CInt(i))         Next i         w.Close()         fs.Close()         fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)         Dim r As New BinaryReader(fs)         For i = 0 To 10             Console.WriteLine(r.ReadInt32())         Next i         r.Close()         fs.Close()     End Sub End Class