Imports System
Imports System.IO
Imports System.IO.StringReader
 
Module Main
 
Sub Main()
Dim strDir As String = Directory.GetCurrentDirectory() & "\dat\"
Dim strFile As String = strDir & "seminar.txt.gml.041025.021708"
 
Dim strLine As StreamReader = New StreamReader(strFile, _
  System.Text.Encoding.ASCII)
 
Dim currentLine As String
 
Try
 
strLine = File.OpenText(strFile)
Do
currentLine = strLine.ReadLine()
Console.WriteLine(currentLine)
Console.ReadLine()
Loop Until currentLine Is Nothing
strLine.Close()
 
Catch ex As DirectoryNotFoundException
Console.WriteLine("The selected directory was not found")
Catch ex As FileNotFoundException
Console.WriteLine("The selected file was not found")
'Catch ex As IOException
'Console.WriteLine("An unattended exception was happen")
 
End Try
Console.ReadLine()
End Sub
 
End Module