The following example illustrates the use of the
WriteLine method.
JScript
var fso, f;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.CreateTextFile("c:\\testfile.txt", true);
f.WriteLine("This is a test.");
f.Close();
VBScript
Function WriteLineToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.WriteLine "Hello world!"
f.WriteLine "VBScript is fun!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteLineToFile = f.ReadAll
End Function
PowerBASIC
FUNCTION WriteLineToFile () AS STRING
LOCAL fso AS IFileSystem
LOCAL f AS ITextStream
fso = NEWCOM ("Scripting.FileSystemObject")
f = fso.OpenTextFile(UCODE$("c:\testfile.txt"), %IOMode_ForWriting, %VARIANT_TRUE)
f.WriteLine UCODE$("Hello world!")
f.WriteLine UCODE$("VBScript is fun!")
f.Close
f = fso.OpenTextFile(UCODE$("c:\testfile.txt"), %IOMode_ForReading)
FUNCTION = ACODE$(f.ReadAll)
f.Close
END FUNCTION