Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create Text File Set tso = fso.OpenTextFile("text.txt", ForWriting, true) tso.WriteLine("foo") tso.Close Set tso = Nothing ' Append Set tso = fso.OpenTextFile("text.txt", ForAppending) tso.WriteLine("bar") tso.Close Set tso = Nothing Set fso = Nothing