Bonjour,

Je souhaite créer un fichier log dans lequel on enregistre le résultat de l'éxecution d'un programme si celui-ci ne détecte aucune erreur.
J'ai réussi à enregistrer les erreurs dans un fichier log. mais quand pas erreur, je n'y arrive pas.
En linux, on utilise cat pour récupérer la sortie de l'écran
Si quelqu'un a une idée , je le remercie d'avance.

voici le code pour récupérer uniquement les erreurs (ce code fonctionne)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
' déclaration de la variable ModeDebug (de debugage)
Dim ModeDebug
' déclaration des objets
Dim objFSO, objLOG
'instanciation des variable
ModeDebug = 0
 
'============= Début du script qui sert pour le débugage ========'
'Vérification que le lot reçu n'est pa vide
 
set obj=CreateObject("Scripting.FileSystemObject")
set objFolder_1=obj.GetFolder("C:\Application\LOT")
if objFolder_1.Size = 0 then
	ModeDebug = 1
else
	wscript.echo "le lot reçu n'est pas vide"
end if
 
 
'création de l'instance de l'objet de FSO et création du fichier de LOG
set objFSO = CreateObject("Scripting.FileSystemObject")
set objLOG = objFSO.CreateTextFile("C:\Test\LOG.txt")
 
'appel de la fonction fncModeDebugde débugage
fncModeDebug "la taille du répertoire est zèro ==> le lot est vide ou l'installation est déjà faite"
wscript.echo vbcrlf
 
function fncModeDebug(Action)
 
If ModeDebug = 1 Then
	Wscript.echo Action
	objLOG.WriteLine Action
	'objFic.WriteLine Action
	if Err <> 0 Then
		'echo de la description de l'erreur
		wscript.echo vbcrlf
		wscript.echo "la source de l'erreur = " &Err.source
		wscript.echo "une erreur s'est produite" & "Description :" & Err.description
		wscript.echo "le numéro de l'erreur = " &Err.number
 
		'inscription de l'erreur dans le fichier LOG
		objLOG.WriteLine "Erreur" & "Description :" & Err.description
		objLOG.WriteLine "le numéro de l'erreur =" & Err.number
		objLOG.WriteLine "la source de l'erreur =" & Err.source
		'Réinitialisation de l'objet Err
		Err.Clear
	Else
		objLOG.WriteLine "Tout se passe bien"
	End If
End If
 
End Function
merci pour votre aide

dadaapocalypse