Citation :
Set objFSO = CreateObject("Scripting.FileSystemObject" ) Set objFile = objFSO.OpenTextFile("index-TEST.html", ForReading)
strDescription = objFile.ReadAll objFile.Close
strNewDescription = Replace(strDescription, "$Titre", objUser.description)
Set objFile = objFSO.OpenTextFile("index-TEST.html", ForWriting) objFile.WriteLine strNewDescription
'objFile.Close
|