写入TXT文件

代码:

Set ōbjth = CreateObject("scrīpting.Filesystemobject")
Set adfile = objth.OpenTextFile("d:\test.txt",2,true)
adfile.write "china"
adfile.close

如果没有d:\test.txt则会创建,并且写入"china".如果已经存在d:\test.txt,并且将文档的内容重新写入"china".原来的内容不会再保存.

("d:\test.txt",2,true),2为打开文件.1则为读取文件.true,表示文件不存在时进行创建。

set f = fso.OpenTextFile("d:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建

还有一个参数是8，目前还不知道8是怎么用。

另一例子：只有两个参数时。

dim fso, f
set fso = CreateObject("scrīpting.FileSystemObject")
set f = fso.CreateTextFile("d:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖，为false时，文件如果存在，则不覆盖，并且脚本运行到此处会提示文件已经存在。
f.Write("写入内容")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.WriteLine("写入内容并换行")

f.Close()