Saving to file adds extra line

Hi all,
 
My first post here :-)
 
I'm trying to open a file and do a find and replace on some contents and then save to a new file. The actual find and replace portion works fine except when saving to a new file I get an extra line added to the end of the file. Does anyone know why an extra line is added and how I can remove it?
My code follows.
Thanks
 
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\testin.log", ForReading)

strText = objFile.ReadAll
strNewText = Replace(strText, "ddmmyy", "241111")

Set objFile = objFSO.CreateTextFile("c:\testout.log")
objFile.WriteLine strNewText
objFile.Close

ratsvbs
I'm trying to open a file and do a find and replace on some contents and then save to a new file. The actual find and replace portion works fine except when saving to a new file I get an extra line added to the end of the file. Does anyone know why an extra line is added and how I can remove it?
[...]'...
objFile.WriteLine strNewText[/code]

Perhaps surprisingly, WriteLine() behaves exactly as documented: it writes the given string followed by a newline. Change WriteLine to Write, and your problem will disappear.

Indeed A fool I am. :-(

Thanks for your help.

You're welcome.