VB.Net Tutorial/Development/Log

A log utility

<source lang="vbnet">Imports System Imports System.IO public class LogTest

  public Shared Sub Main
       MyLog.Log("Started Up", "C:\test.txt")
       MyLog.Log(String.Format("DisplayName called, {0} {1} output","B", "A"), "C:\test.txt")
  End Sub

End class Public Class MyLog

   Const DefaultLogFile As String = "C:\LogFile.txt"
   Shared Sub Log(ByVal Message As String,ByVal FileName As String)
       Dim objLogFile As StreamWriter
       
       If IO.File.Exists(FileName) Then
           objLogFile = File.AppendText(FileName)
       ElseIf Directory.Exists (Path.GetDirectoryName(FileName)) Then
           objLogFile = File.CreateText(FileName)
       Else
           objLogFile = File.AppendText(DefaultLogFile)
       End If
       objLogFile.WriteLine(Message)
       objLogFile.Flush()
       objLogFile.Close()
   End Sub

End Class</source>

My.Application.Log.DefaultFileLogWriter.FullLogFileName

<source lang="vbnet">Option Strict On Public Module ApplicationLog

  Public Sub Main()
     Dim logFile As String = My.Application.Log.DefaultFileLogWriter.FullLogFileName
     Console.WriteLine("Location of Application Log File: {0}   {1}", vbCrLf, logFile)
  End Sub

End Module</source>

Location of Application Log File:
   C:\Documents and Settings\Joe\Application Data\ApplicationLog\ApplicationLog\0.0.0.0\main.log