Recherche texte dans un log

:salut:
une petite piste ;)
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
Option Explicit
Dim LogFile
LogFile = "LogTest.txt"
Call Recherche("VISIO",LogFile)
 
Function Recherche(Mot,LogFile)
	Const ForReading = 1
	Dim Titre,objFSO,objFile,LireTout,Msg,flag
	Titre = "Recherche d'un mot dans un fichier Log"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(LogFile,ForReading)
	LireTout = objFile.ReadAll
	objFile.Close
	If InStr(LireTout,Mot) > 0 Then
		Msg = "Le mot "& DblQuote(Mot) &" se trouve bien dans le fichier " & DblQuote(LogFile) & "." & VbCrLF & VbCrLF &_
		"Donc on peut poursuivre l'installation"
		flag = 64
	Else
		Msg = "Le mot "& DblQuote(Mot) &" ne se trouve pas dans le fichier " & DblQuote(LogFile)& "." & VbCrLF & VbCrLF &_
		"l'installation ne peut pas se poursuivre"
		flag = 16
	End If
	Recherche = MsgBox(Msg,flag,Titre)
End Function
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************