Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
Dim fs, f
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
 
f.Write "Hello world!"
 
f.Close