Open, Read, Display&Overwrite Textfile($)

[Guest_imported]

How to Display the string from a Textfile in a MsgBox, ...
<%code:
Dim FSO
Set FSO = WScript.CreateObject(&quot;WScriptin.FileSys...&quot

Const FILEPATH = &quot;D:\Sefiroth\Library\Logs\Lynx.log&quot;

Dim Text
Set Text = FSO.OpenTextFile(FILEPATH)

Set ReadText = Text.ReadAll

MsgBox ReadText, vbInformation + 0, &quot;Filecontents:&quot;


'''Error = Line6: Object required[string:&quot;xxxxxxx&quot;] ???
'''then import it for an addition 'n finally overwrite it?


Text.ReadAll

MsgBox Text, vbInformation + 0, &quot;Textinhalt:&quot;

Text.Close

FSO.CreateTextFile(&quot;FILEPATH&quot;, True)
Dim NewTime
NewTime = Now
Text.WriteLine NewTime
'''Error = Cannot use parentheses while calling a sub.
:code%>