TXT文件写入

''' <summary>
''' ログ出力
''' </summary>
''' <param name="logPath">ログパス</param>
''' <param name="logEventType">イベント種類</param>
''' <param name="logMessage">ログメッセージ</param>
''' <remarks></remarks>
Public Shared Sub WriteLog(ByVal logPath As String, ByVal logEventType As String, ByVal logMessage As String)
Dim strNow As String = Now()
Dim isExists As Boolean = True
Dim writer As StreamWriter = Nothing

Try
If New FileInfo(logPath).Exists = False Then
isExists = False
End If
Writer = New StreamWriter(logPath, True, Encoding.Unicode)
If isExists = False Then
Writer.WriteLine(LOG_HEADER)
End If
Writer.WriteLine(LOG_MESSAGE, logEventType, strNow, logMessage)
Writer.WriteLine("")
Writer.flush()
Catch ex As Exception
Throw ex
Finally
If Not Writer Is Nothing Then
Writer.close()
End If
End Try
End Sub