Visual Basic

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fs As FileStream = File.Open("\\cvspwcora010\d$\oracle\admin\log\oramon_marsprod.log", _ 
     FileMode.Open, FileAccess.ReadWrite, System.IO.FileShare.ReadWrite)
Dim streamReader As New StreamReader(fs)
Dim stringresult As String = streamReader.ReadToEnd
Dim arLogLines() As String = stringresult.Split(vbNewLine)
Dim i As Integer
Dim b As Integer = Len(arLogLines(i))
 
    For i = arLogLines.Length - 1 To 0 Step -1
        If InStr(arLogLines(i), "WARNING") Or InStr(arLogLines(i), "CRITICAL") Then
            Response.Write(" " & arLogLines(i) & "<BR>")
        End If
    Next
End Sub

Dim thread As Threading.Thread = New Threading.Thread(AddressOf TestSub)
Private Sub processNewFile(Byval source As Object, ByVal e As FileSystemEventArgs)
Try

        thread.Start()
Catch ex As Exception
MsgBox("Dang...got an exception")
End Try
End Sub

Sub TestSub()
'Your code goes here
End Sub

<br />
Dim sr As New IO.StreamReader(IO.File.OpenRead(e.FullPath))<br />
message = sr.ReadToEnd()<br />
sr.Close()<br />

' Create an instance of StreamReader to read from a file.
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
    line = sr.ReadLine()
    Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()

' Create an instance of StreamReader to read from a file.
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
    line = sr.ReadLine()
    Textbox1.text += line
Loop Until line Is Nothing
sr.Close()