描述

语法

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