WriteBlankLines 方法

在 TextStream 文件中寫入指定數(shù)目的新行字符。

object.WriteBlankLines(lines)

參數(shù)

object

必選項(xiàng)。應(yīng)為 TextStream 對(duì)象的名稱。

lines

必選項(xiàng)。要向文件寫入的新行字符數(shù)目。

說明

下面例子舉例說明如何使用 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.ReadAllEnd Function