CLASS DE GESTION FICHIER .LOG

'
' A mettre dans un module
'

public Const FMT_NOW = "%n%"       'Date + heure
public Const FMT_DATE = "%dt%"     'Date
public Const FMT_TIME = "%t%"      'Heure
public Const FMT_YEAR = "%y%"      'Année
public Const FMT_MONTH = "%m%"     'Mois
public Const FMT_DAY = "%d%"       'Jour
public Const FMT_TEXT = "%txt%"    'Le texte

Voici un exemple d'utilisation

Dim objLog as new clsLOG

Form_Load()
objLog.InitLog(app.path &"\suivit.log")
objlog.WriteUnload = true
objlog.format = "[" & FMT_NOW & "] " & FMT_TEXT
objlog.addLine("Ouverture du programme")
End Sub