File Directory ASP.Net Tutorial

<%@ Page Language="VB" %>
<%@ Import namespace="System.IO" %>

   sub DisplayFile(Sender as Object, e as EventArgs)
      dim strFile as string = tbFile.Text
      dim objReader as StreamReader
      
      if File.Exists(strFile) then
         objReader = new StreamReader(strFile)
            
         while objReader.Peek > -1
            lblMessage.Text += Server.HTMLEncode _
               (objReader.ReadLine) & "
"
         end while
            
         objReader.Close
      end if
   end sub


   
               OnTextChanged="DisplayFile"
         AutoPostBack=true />
      
               MaintainState=false/>