VBS教程：方法-WriteLine 方法

　　Function WriteLineToFile

　　Const ForReading = 1, ForWriting = 2

　　Dim fso, f

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set f = fso.OpenTextFile("c: estfile.txt", ForWriting, True)

　　f.WriteLine "嗨，你好!"

　　f.WriteLine "VBScript 很有趣!"

　　Set f = fso.OpenTextFile("c: estfile.txt", ForReading)

　　WriteLineToFile = f.ReadAll

　　End Function

您可能感兴趣的文章:

相关文章