Private Sub ScriviLogErrore(ByVal NameErrore As String)
'Controllo esistenza file Log Error error.log
If IO.File.Exists(Application.StartupPath & "\error.log") = False Then
'Creo il file Log di Errore se non esiste
Dim fs As IO.FileStream = IO.File.Create(Application.StartupPath & "\error.log")
fs.Close() 'chiudo il file log
End If
'Apro il file per poi aggiungere i dati alla fine dell'errore
Dim tw As IO.TextWriter = IO.File.AppendText(Application.StartupPath & "\error.log")
tw.WriteLine(NameErrore)
tw.Close()
End Sub
Se volete aggiungere anche la data ed ora quando è successo l'errore, potete usare la stessa funzione modificata :
Esempio utilizzo :
ScriviLogErroreData(" - Errore FileSystemWatcher ",True) ' Scrive nel file .log "14/05/2012 13.30.02 - Errore FileSystemWatcher "
ScriviLogErroreData(" - Errore FileSystemWatcher ",False) ' Scrive nel file .log " - Errore FileSystemWatcher"
Codice Visual Basic .NET / VB.NET :
Private Sub ScriviLogErroreData(ByVal NameErrore As String, ByVal ValueData As Boolean)
Dim data As Date = Date.Now()
'Controllo esistenza file Log Error error.log
If IO.File.Exists(Application.StartupPath & "\error.log") = False Then
'Creo il file Log di Errore se non esiste
Dim fs As IO.FileStream = IO.File.Create(Application.StartupPath & "\error.log")
fs.Close() 'chiudo il file log
End If
'Apro il file per poi aggiungere i dati alla fine dell'errore
Dim tw As IO.TextWriter = IO.File.AppendText(Application.StartupPath & "\error.log")
If ValueData = False Then
'Scrivi normale senza data e ora all'inizio, scrivi solo la stringa errore
tw.WriteLine(NameErrore)
Else
'Scrivi con data e ora all'inizio e poi stringa errore
tw.WriteLine(data & NameErrore)
End If
tw.Close()
End Sub