# WriteBlankLines 方法
object.WriteBlankLines(lines)
在 TextStream 文件中写入指定数目的新行字符。
| 参数 | 描述 |
|---|---|
| object | 必选项。应为 TextStream 对象的名称 |
| lines | 必选项。要向文件写入的新行字符数目。 |
说明 下面例子举例说明如何使用 WriteBlankLines 方法:
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
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10
应用于