Create text file if not present

Set fso=createobject("scripting.filesystemobject")
Set obj=fso.opentextfile("E:\textcheck.txt",2,true)
obj.writeline "hi welcome"
obj.close