- Public Function SaveLog(s As String, fichier As String)
- Dim pv_file As Integer
- pv_file = FreeFile + 1
- Open fichier For Append As #pv_file
- Print #pv_file, s
- Close pv_file
- End Function
-
-
- ' Dans le programme on a juste a créer une variable (LOG) string qu'on initialisera avec
- DateCopieLog = Now()
- LOG = "* -------- * Lancement du " & DateCopieLog & " * --------- *" & vbCrLf
-
- ' ensuite pour ajouter les infos on fait simplement :
- LOG = LOG & " Les infos que l'on veut" & vbCrLf
-
- ' A la fin on fait donc simplement :
- fichierLOG = "Monfichier.log"
-
- LOG = LOG & " Le Programme de copie a terminé son exécution ( Temps Total : " & DateDiff("s", DateCopieLog, Now()) & " secondes)" & vbCrLf
- retour = SaveLog(LOG, fichierLOG)
-
Public Function SaveLog(s As String, fichier As String)
Dim pv_file As Integer
pv_file = FreeFile + 1
Open fichier For Append As #pv_file
Print #pv_file, s
Close pv_file
End Function
' Dans le programme on a juste a créer une variable (LOG) string qu'on initialisera avec
DateCopieLog = Now()
LOG = "* -------- * Lancement du " & DateCopieLog & " * --------- *" & vbCrLf
' ensuite pour ajouter les infos on fait simplement :
LOG = LOG & " Les infos que l'on veut" & vbCrLf
' A la fin on fait donc simplement :
fichierLOG = "Monfichier.log"
LOG = LOG & " Le Programme de copie a terminé son exécution ( Temps Total : " & DateDiff("s", DateCopieLog, Now()) & " secondes)" & vbCrLf
retour = SaveLog(LOG, fichierLOG)