Function WriteLineToFile
 Const ForReading = 1, ForWriting = 2
 Dim fso, f
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
 f.WriteLine "嗨，你好!" 
 f.WriteLine "VBScript 很有趣!"
 Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
 WriteLineToFile = f.ReadAll
End Function