[VB.NET] Creare un file di log

[SigAlexey]

Ciao a tutti!
Mi servirebbero dei consigli riguardo VB.Net, più precisamente per la creazione di un file di log

Ho una piccola applicazione che accede ad un DB ed esegue dei controlli.

E fin qui tutto bene.
Adesso però mi servirebbe un file txt in cui registrare buona parte delle azioni che faccio, ad esempio:

data ora operazione

07/07/2014 07:45 controllo1 ok
08/07/2014 07:50 controllo2 parz. ok


E avanti così.

Qualcuno saprebbe come chiarirmi le idee?
Grazie

[SirJo]

Molto semplice,
crei una banalissima routine che scrive del testo su di un file, e dentro nel tuo programma chiami la routine dicendogli cosa deve scrivere nel file di log.

Ad esempio potrebbe essere:

Private Sub LogWrite(ByVal Testo As String)

        My.Computer.FileSystem.WriteAllText("....ilnomedelfile.log", _
            DateTime.Now.ToString("dd\/MM\/yyyy HH\:mm\:ss") & " " & _
            Testo & vbCrLf, True)

    End Sub

Poi nel tuo codice chiami la routine:

....
LogWrite("sto per aprire il database")
....
Try
   Database.open()
   LogWrite("Database aperto")
Catch
    LogWrite("Errore apertura database. Errore ............... ")
End Try
LogWrite("caricamento form principale")
...
... e così via

Sergio

[SigAlexey]

Grazie mille

Ho anche trovato altro in giro

Se può servire:

        If File.Exists("reg.log") = False Then


            sw = File.CreateText(Application.StartupPath & "\reg.log")
            sw.WriteLine("INIZIO FILE DI LOG")
            sw.Flush()
            sw.Close()


        End If

PER LA CREAZIONE DEL FILE, DA METTERE NEL LOAD

Select Case msgris
                Case 1


                    Using sw As New System.IO.StreamWriter("Reg.log", True, System.Text.Encoding.GetEncoding(1252))
                        sw.WriteLine(data & "     RICETTA OK")
                    End Using


                Case 2
                    Using sw As New System.IO.StreamWriter("Reg.log", True, System.Text.Encoding.GetEncoding(1252))
                        sw.WriteLine(data & "     RICETTA PARZIALMENTE OK")
                    End Using


                Case 3


                    Using sw As New System.IO.StreamWriter("Reg.log", True, System.Text.Encoding.GetEncoding(1252))
                        sw.WriteLine(data & "     RICETTA ERRATA!")
                    End Using




            End Select

QUESTO PER SCRIVERLO...