FileStream.SetLength : FileStream « System.IO « VB.Net by API

1. VB.Net by API
2. System.IO
3. FileStream

FileStream.SetLength

  

Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization

Public Class MainClass

   Public Shared Sub Main()
      Const NUMBER_OF_RECORDS As Integer = 100

      Dim blankRecord As Employee = New Employee("f","l")

      Dim fileOutput As FileStream

      Dim binaryOutput As BinaryWriter

      Dim fileName As String = "test.dat"
      Dim i As Integer

         Try

            fileOutput = New FileStream(fileName,FileMode.Create, FileAccess.Write)

            fileOutput.SetLength(Employee.SIZE * NUMBER_OF_RECORDS)

            binaryOutput = New BinaryWriter(fileOutput)

            For i = 0 To NUMBER_OF_RECORDS - 1
               fileOutput.Position = i * Employee.SIZE
               binaryOutput.Write(blankRecord.firstName)
               binaryOutput.Write(blankRecord.lastName)
            Next
            Console.WriteLine("File Created")
         Catch fileException As IOException
            Console.WriteLine("Cannot write to file")

         End Try


      ' close FileStream
      If (fileOutput Is Nothing) <> False Then
         fileOutput.Close()
      End If

      ' close BinaryWriter
      If (binaryOutput Is Nothing) <> False Then
         binaryOutput.Close()
      End If

   End Sub

End Class

<Serializable()> Public Class Employee
   Public firstName, lastName As String
   Shared Public SIZE As Integer = 200 
   Public Sub New(ByVal first As String, ByVal last As String)
      firstName = first
      lastName = last
   End Sub 

   Public Overrides Function ToString() As String
      Return firstName & " " & lastName
   End Function 

End Class 

   
    
  

Related examples in the same category