累加输出到文件(vbs)

'====================================================
'函数:WriteLineToFile
'功能:输出到文件(不断累加)
'====================================================
Function WriteLineToFile( strLine )
   Const ForReading = 1, ForWriting = 2,ForAppend=8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("out.txt",ForAppend, True)
   f.WriteLine strLine
End Function