Création d'un fichier log lors de l'exécution d'un programme

Commenter

Contenu du snippet

Simple fonction permettant d'envoyer dans un fichier LOG les informations souhaitées lors de l'exécution d'un programme. Ceci afin de suivre celui-ci (très utile avec les programmes qui tourne en tache de fond ou en tant que services).

Source / Exemple : 


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)

Conclusion :


Bon Coding

Romelard Fabrice (Alias F___)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)