[codepoet]

Code

Sub Log(ByVal txt As String)
'Open a file for writing
Dim FILENAME As String = Server.MapPath("Log.txt")

Get a StreamReader class that can be used to read the file

Dim objStreamWriter As StreamWriter

objStreamWriter = File.AppendText(FILENAME)

objStreamWriter.WriteLine(DateTime.Now.ToString() + " >> " + txt)

'Close the stream

objStreamWriter.Close()

End Sub

Rewritten by me from VB6

If You Like this tutorial,
please check out my other tutorials by clicking ==> here

[Stylis]

Little amelioration

Code

Private Function Log(ByVal sFile As String, ByVal sText As String)
    Dim objStreamWriter As System.IO.StreamWriter

    objStreamWriter = System.IO.File.AppendText(Application.StartupPath & "\" + sFile)
    objStreamWriter.WriteLine(DateTime.Now.ToString() + " >> " + sText)
    objStreamWriter.Close()

    Return Nothing
End Function

Example:

Code

Log("logs.txt", "Application started !")

Very good snippet !

[Mark Webber's B1tch]

Nice man..

Excellent for people that likes to make their applications a bit more special.

Thanks for sharing mate.

[codepoet]

you are very welcome...


2short

[codepoet]

If You Like this tutorial,
please check out my other tutorials by clicking ==> here