в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:39Z

1 версия

Новая страница

==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>
<pre class=codeResult>Location of Application Log File:
C:\Documents and Settings\Joe\Application Data\ApplicationLog\ApplicationLog\0.0.0.0\main.log</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Development/Log - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия