Script VBS (envoi de mail si jamais je trouve un message dans plusieurs fichiers à la date du jour)

Version imprimable

Bonjour,

Je suis en train de travailler sur un script qui permettrais d'analyser plusieurs fichier (ceux qui ont dans leurs noms date du jour même).
Le mot serait Error puis il y aurais éventuellement un envois de mail si on trouve le mot.

Malheureusement, il me met comme message (ligne non trouvé)

fichier.txt :

this is error

Code:

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
Const ForReading = 1
 
Dim strSearchFor
strSearchFor = "error"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("fichier.txt", ForReading)
 
do until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine()
 
    If InStr(1, strLine, strSearchFor) <> 0 then
        Wscript.Echo "ligne trouvee"
		Wscript.Echo strLine
    Else
        Wscript.Echo "ligne non trouvee"
    End If
loop
objTextFile.Close
 
 
Option Explicit
DIM fso    
Set fso = CreateObject("Scripting.FileSystemObject")
 
If (fso.FileExists("fichier.txt")) Then
  WScript.Echo("Le fichier a ete trouve !")
  WScript.Quit()
Else
  WScript.Echo("Le fichier n'a pas ete trouve !")
End If
 
WScript.Quit()

Salut

Vite fait, cela fait un moment que je n'ai pas programmé en VBScript mais cela devrait ressemblé à

Code:

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
Option Explicit
Const ForReading = 1
dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Sub scanfichier()
	dim strLine
	dim strSearchFor
	strSearchFor = "error"
	dim objTextFile
	Set objTextFile = objFSO.OpenTextFile("fichier.txt", ForReading)
	do until objTextFile.AtEndOfStream
		strLine = objTextFile.ReadLine()
		If InStr(1, strLine, strSearchFor) <> 0 then
			Wscript.Echo "ligne trouvée"
			Wscript.Echo strLine
		Else
			Wscript.Echo "ligne non trouvée"
		End If
		objTextFile.Close
	Set objTextFile = nothing
End Sub
 
 
 
If (objFSO.FileExists("fichier.txt")) Then
  WScript.Echo("Le fichier a ete trouve !")
  scanfichier()
Else
  WScript.Echo("Le fichier n'a pas été trouve !")
End If
 
Set objFSO = nothing
WScript.Quit()

15/04/2022, 00h18
aminepro

J'ai testé le code mais sa me met une erreur à la ligne 20

Salut

Une erreur d'attention, il manque le Loop de la boucle do until

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub scanfichier()
	Const ForReading = 1
	dim strLine
	dim strSearchFor
	strSearchFor = "error"
	dim objTextFile
	Set objTextFile = objFSO.OpenTextFile("fichier.txt", ForReading)
	do until objTextFile.AtEndOfStream
		strLine = objTextFile.ReadLine()
		If InStr(1, strLine, strSearchFor) <> 0 then
			Wscript.Echo "ligne trouvée"
			Wscript.Echo strLine
			'MsgBox "ligne trouvée"
			'MsgBox strLine
		Else
			Wscript.Echo "ligne non trouvée"
			'MsgBox "ligne non trouvée"
		End If
	Loop
	objTextFile.Close
	Set objTextFile = nothing
End Sub