1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Public Shared Sub AddEvenementsUtilisateur(ByVal intitule As String, ByVal reussit As Boolean, ByVal observation As String)
If (evenementsUtilisateur = "oui") Then
Dim sr As StreamWriter = File.AppendText(GetRepertoire() + GetEnTeteFichier() + "evenementsUtilisateur.log")
Dim reussitFr As String
If (reussit) Then
reussitFr = "OK"
Else
reussitFr = "ERREUR"
End If
sr.WriteLine(System.DateTime.Now.ToString + " par " + Utilisateur.GetIdentite() + _
"(dep:" + Utilisateur.GetDepartement().ToString() + ") - " + intitule + " -> " + reussitFr)
sr.WriteLine(observation)
sr.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
sr.Close()
End If
End Sub |
Partager