FSO创建空文本文件（或称“文本流”）的三种方法
方法一>使用FileSystemObject对象的CreateTextFile方法
Dim FSO,F1
Set FSO=CreateObject("Scripting.FileSystemObject")
Set F1=FSO.CreateTextFile("c:\testfile.txt",True)

<方法三>使用OpenAsTextStream方法，并设置ForWriting标志
Dim FSO,F1,TS
Const ForWriting=2
Set FSO=CreateObject("Scripting.FileSystemObject")
FSO.CreateTextFile("c:\testfile.txt")   此句为什么没有set ? 加上set行吗？
Set F1=FSO.GetFile("c:\testfile.txt")
Set TS=F1.OpenAsTextStream(ForWriting,True)
 

这里如此冷清？没有人答应!