Discussion :

[dadaapocalypse]

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

[SfJ5Rpw8]

je ne comprends pas si pour les messages erreurs la méthode que tu utilise te conviens pourquoi ne l'utilise tu pas pour les messages d'informations ?

pour les messages tu fais biens cela "en 2 fois" d'une par tu affiche ton message à l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript.echo "le numéro de l'erreur = " &Err.number

d'autre par tu écris dans ton fichier log :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objLOG.WriteLine "le numéro de l'erreur =" & Err.number

?

[dadaapocalypse]

Merci
j'ai essayé et ça marche.

merci beaucoup
dadaapocalypse