WriteBlankLines 方法 |
|
WriteBlankLines 方法的语法有以下部分:
部分 | 描述 |
object | 必选。应为 TextStream 对象的名称。 |
lines | 必选。要向文件写入的新行字符数目。 |
Function WriteBlankLinesToFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True) f.WriteBlankLines 2 f.WriteLine "世界你好!" Set f = fso.OpenTextFile("c:\testfile.txt", ForReading) WriteBlankLinesToFile = f.ReadAll End Function