CreateTextFile 文件的使用

就是修改文本文件的内容，配合着 Write，WriteLine，WriteBlankLine，来进行写入操作。

下面附一个例子 前提是win.txt是必须存在的。

Dim fso,path,note
Set fso = CreateObject("SCripting.FileSystemObject")
path = "D:\win.txt"
Set note = fso.CreateTextFile(path)    ' 确定要修改的对象
For i=0 to 100
note.WriteLine i                       '每一行写入i变量的值
Next
note.Close                             '是note变量不指代此文件
set note = Nothing                     '释放note和fso的空间 
set fso = Nothing