实例：本实例说明如何利用 TextStream 对象的属性和方法创建一个文本文件并对其执行写操作。代码如下：

<% @ language="VBScript" %>

正在写文件......

<%
'创建 FileSystemObject 对象实例
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'创建一个文本文件并返回 TextStream对象
Set txtFile=fso.CreateTextFile(Server.MapPath("poem.htm"),True)
'对文件执行写操作
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.WriteLine ""
txtFile.Close
%>

　　当执行这个页面后，将在这页面的同一目录下生成一个名为 poem.htm 的页面，其代码如下：