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