Const ForWriting = 8
'Renseigner les chemins pour le fichier WebInterfaceConFSource et le WebInterface.conf
WebConfSource = "\\VotreServeur\c$\InetPub\wwwroot\VotreSite\WebInterfaceSource"
WebConfNow = "\\VotreServeur\c$\InetPub\wwwroot\VotreSite\WebInterface.conf"
WebConfLog = "\\VotreServeur\VotrePartage\WebInterfaceLog.html"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWebConf_Source = objFSO.OpenTextFile(WebConfSource, 1) ' Fichier originale
Set objWebConf_Now = objFSO.OpenTextFile(WebConfNow, 1) 'Fichier copié
Set ObjWiLog = objFSO.OpenTextFile(WebConfLog, ForWriting, True)
'Contruction de la page html
ObjWilog.Write "" & VbCrlf & "
" & VbCrlf & "Log WI" & VbCrlf & "" & VbCrlf & "" & VbCrlf
ObjWilog.Write "" & VbCrlf
ObjWilog.Write "" & VbCrlf
ObjWilog.Write "" & VbCrlf
ObjWilog.Write "" & Now & " | " & VbCrlf
ObjWilog.Write "
" & VbCrlf
vrNumLigne = 0
'Boucle de comparaison des deux fichiers
Do Until objWebConf_Source.AtEndOfStream Or objWebConf_Now.AtEndOfStream
vrNumLigne = vrNumLigne + 1
vrLigne = objWebConf_Source.ReadLine
vrLigne2 = objWebConf_Now.ReadLine
vrLignDif = ""
vrComprLign = StrComp(vrLigne, vrLigne2, 1)
If vrComprLign = 1 Or vrComprLign = -1 Or IsNull(vrComprLign) Then
vrNul = "Le fichier a été modifier"
vrLignDif = "Fichier Source : " & vrLignDif & vrNumLigne & ": " & vrLigne & vbCrLf & "
" & "" & "Fichier Actuel " & " " & ": " & vrNumLigne & ": " & vrLigne2 & "" & vbCrLf & vbCrLf
'écriture dans le fichier html des modifications entre les deux fichiers
ObjWiLog.Write "" & VbCrlf
ObjWiLog.Write "" & VbCrlf
ObjWiLog.Write " " & vrLignDif & " " & vbCrLf
ObjWiLog.Write " | " & VbCrlf
ObjWiLog.Write "
" & VbCrlf
Else
End If
Loop
'fin de construction de la page html
ObjWiLog.Write "
" & vbCrLf
ObjWiLog.Write "" & vbCrLf
ObjWiLog.Write "" & vbCrLf
'fermeture des fichiers
objWebConf_Source.Close
objWebConf_Now.Close
ObjWiLog.Close