Creating Files

Three ways to create empty text files (sometimes referred to as TextStream):

CreateTextFile method

[VBScript]
Dim fso, f1
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(“c:\testfile.txt”, True)

OpenTextFile method of the FileSystemObject object with the ForWriting flag set

[VBScript]
Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.OpenTextFile(“c:\test.txt”, ForWriting, True)

OpenAsTextStream method with the ForWriting flag set

[VBScript]
Dim fso, f1, ts
Const ForWriting = 2
Set fso = CreateObject(“Scripting.FileSystemObject”)
fso.CreateTextFile (“c:\test1.txt”)
Set f1 = fso.GetFile(“c:\test1.txt”)
Set ts = f1.OpenAsTextStream(ForWriting, True)