Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const Open_as_Unicode = True
Dim objFSO, objFile
Dim strFolder, strFile, strNewLine, strFile, strLine
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
strFolder = “C:Files”
strFile = “File.txt”
strFile = strFolder & strFile
Set objTNS = objFSO.OpenTextFile(strFile, ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
strLine = rTrim(strLine)
strNewLine = strNewLine & strLine & vbCrlf
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile(strFile, ForWriting)
objFile.Write strNewLine
objFile.Close
WScript.Quit