0 Members and 1 Guest are viewing this topic.
var fso, f;fso = new ActiveXObject("Scripting.FileSystemObject");f = fso.CreateTextFile("c:\\testfile.txt", true);f.WriteLine("This is a test.");f.Close();
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.ReadAllEnd Function
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.CloseEND FUNCTION