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 "" & 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 "" & VbCrlf Else End If Loop 'fin de construction de la page html ObjWiLog.Write "
" & Now & "
" & VbCrlf ObjWiLog.Write "

" & vrLignDif & "

" & vbCrLf ObjWiLog.Write "
" & vbCrLf ObjWiLog.Write "" & vbCrLf ObjWiLog.Write "" & vbCrLf 'fermeture des fichiers objWebConf_Source.Close objWebConf_Now.Close ObjWiLog.Close