Open File in an Input, Read, and Shared Mode : File Open Mode « File Directory « VB.Net

1. VB.Net
2. File Directory
3. File Open Mode

Open File in an Input, Read, and Shared Mode

Imports System
Imports System.Collections.ObjectModel
Imports System.IO

Public Class MainClass

   Shared Sub Main()
        ' Get an available file number.
        Dim file_num As Integer = FreeFile()

        ' Open the file.
        Dim file_name As String = "test.txt"
        FileOpen(file_num, file_name, _
            OpenMode.Input, OpenAccess.Read, OpenShare.Shared)

        ' Read the file's lines.
        Do While Not EOF(file_num)
            ' Read a line.
            Dim txt As String = LineInput(file_num)
            Console.WriteLine(txt)
        Loop

        ' Close the file.
        FileClose(file_num)
   End Sub 

End Class

           
       

Related examples in the same category