Imports System.IO
Imports System.Reflection
Module RedirectStdErr
Public Sub Main()
Dim appStart As Date = Date.Now
Dim fn As String = "c:\" & appStart.ToString("yyyyMMddHHmm") & ".log"
Dim errStream As New StreamWriter(fn)
Dim appName As String = Assembly.GetExecutingAssembly().Location
appName = Mid(appName, InStrRev(appName, "\") + 1)
Console.SetError(errStream)
Console.Error.WriteLine("Error Log for Application {0}", appName)
Console.Error.WriteLine("Application started at {0}.", appStart)
Console.Error.Close()
End Sub
End Module