下面的代码展示了如何使用 FileSystemObject 对象来返回可读取或写入的 TextStream 对象：

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close
在示例代码中：
CreateObject 函数返回 FileSystemObject (fs)。
CreateTextFile 方法创建文件作为 TextStream 对象 (a)。
WriteLine 方法将一行文本写入创建的文本文件。
Close 方法刷新缓冲区并关闭文件。
对象 (Visual Basic for Applications)
属性 (Visual Basic for Applications)
对象 (Visual Basic for Applications)
Office 对象库参考（成员、属性、方法）
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。