Mega Code Archive

 

Categories / VB.Net / File Directory

 

Creating a random file

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       ' record for writing to disk       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