vbs中对文件的处理_添加数据到文件中

一旦创建了文本文件，使用下面的三个步骤向文件添加数据：
,M i-GNA;U^;N4t0打开文本文件。
dAD/W!n@4?J0写入数据。
5q8Z/QZPVy0关闭文件。51Testing软件测试网$n0]?(Y"S2IJ-{Y

1，打开现有的文件：
[3gfR/|
wzcI+t0  使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream 方法。

7B9y&@ C?:j02，写数据到打开的文本文件：用 TextStream 对象的
0[G#o.H%NKQC4_^Ur0Write：向打开的文本文件写数据，不用后续一个新行字符。
(H)v6`}+tJ0WriteLine：向打开的文本文件写数据，后续一个新行字符。51Testing软件测试网ri7qAt,r1U
WriteBlankLines：向打开的文本文件写一个或多个空白行。

8t5@6a,i2q+D#D03，关闭一个打开的文件：使用TextStream对象的Close方法

例子：

Sub CreateFile()51Testing软件测试网,Nmr;_k6b
l%b:[nB
   Dim fso, tf51Testing软件测试网;]1?jD8\,]]D
   Set fso = CreateObject("scrīpting.FileSystemObject")
b#~Q(A\3b2?^.B0   Set tf = fso.CreateTextFile("c:\testfile.txt", True)

Hg+AB!q,h
fI%N0   '写一行，并且带有新行字符。51Testing软件测试网9Mo9[q8U\,Gg
   tf.WriteLine("Testing 1, 2, 3.")51Testing软件测试网Wj_MsE*p
   '向文件写三个新行字符。      51Testing软件测试网!c%x2E+f*z%l[}
   tf.WriteBlankLines(3)51Testing软件测试网;h'DTr+h
pm1^Bv
WR
   '写一行。51Testing软件测试网O.NP
VOA
   tf.Write ("This is a test.")
9u1Ej+{eW.{-BD0   tf.Close51Testing软件测试网~*?6BcR
End Sub