描述

语法

object 应为 TextStream 对象的名称。

说明

Sub CreateAFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set a = fso.CreateTextFile("c:\testfile.txt", True)
  a.WriteLine("这是一个测试。")
  a.Close
End Sub