<%@ Page Language="vb" Explicit="true" Strict="true" %>
<%@ Import Namespace = "System.IO" %>
Sub ReadFile(ByVal sender As Object, ByVal e As EventArgs)
Dim FileStreamReader As StreamReader
Try
FileStreamReader = File.OpenText(Server.MapPath(".\Upload\") & "test.txt")
TextContent.Text = FileStreamReader.ReadToEnd()
FileStreamReader.Close()
OutputLabel.Text = "File Succesfully Read!"
Catch exc As Exception
OutputLabel.Text = "Error in Reading file. Error is " & exc.ToString()
Finally
If Not FileStreamReader Is Nothing Then
FileStreamReader.Close()
End If
End Try
End Sub
Opening a File