Imports System.IO
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Text files | *.txt"
FileDB.FilterIndex = 2
FileDB.InitialDirectory = "C:\Temp"
FileDB.AddExtension = True
FileDB.DefaultExt = "txt"
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim SourceFile As StreamReader
SourceFile = New StreamReader(FileDB.FileName)
If (Not SourceFile Is Nothing) Then
Try
Console.WriteLine(SourceFile.ReadToEnd())
Catch Except As Exception
Console.WriteLine("Error: " & Except.Message)
Finally
Console.WriteLine("In finally statements")
SourceFile.Close()
End Try
End If
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End Module
|