Voici une procédure permettant d'utiliser facilement un fichier log dans vos scripts VBScript:
Il suffit ensuite de l'appeler comme ceci:
Ce qui donne dans le fichier de logs:
Sub Log(pMessage)
Dim objFSO, objOutFile, sWorkingFileName, today
Const FOR_APPENDING = 8
sWorkingFileName = "log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(sWorkingFileName) Then
Set objOutFile = objFSO.OpenTextFile(sWorkingFileName, FOR_APPENDING)
Else
Set objOutFile = objFSO.CreateTextFile(sWorkingFileName)
End If
today = Year(Now) & "/" & Right("00" & Month(Now), 2) & "/" & Right("00" & Day(Now), 2) & " " & Time
objOutFile.WriteLine today + " - " + pMessage
End Sub
Il suffit ensuite de l'appeler comme ceci:
Log "Application start"Ce qui donne dans le fichier de logs:
2009/11/09 13:52:50 - Application start



Calendrier




