fso|教程

如何使用FSO打开文件-FSO使用教程4

了解了文件复制，删除，移动及重命名后，接下来让我们学习如果存取文件里面的数据。文件存取所必须用到的TextStream对象是FileSystemObject的子对象。其建立的方法有OpenTextFile及CreateTextFile两种，使用实例如下：

'首先建立FileSystemObject对象
Set fs = Server.CreateObject("Scripting.FileSystemObject")
'再建立一个TextStream类型对象
Set txt = fs.OpenTextFile(参数...)

或者：

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set txt = fs.CreateTextFile(参数...)

我们在建立了TextStream对象之后，接下来我们可以调用附属于TextStream对象的ReadLine、WriteLine、Read、ReadAll、Write...等方法来存取文件的内容。

四、下面我们首先讲解如果用FSO打开文件：

方法：OpenTextFile

调用格式：

OpenTextFile（文件[, 打开模式][, 是否自动创建文件]）

注意事项：（后两个参数可省略）

• 打开模式：可以有三种设置值：

设置值	意义
1	打开成只读的文件
2	打开成只写的文件，原文件内容会先被清除
8	打开成只写的文件，并保留原文件内容，而数据会从文件的最后面写入

如果文件被打开“只读”文件，接下来我们只能调用TextStream对象的ReadLine、Read及ReadAll方法来读取文件的内容；如果文件打开为“只写”文件，则只能调用WriteLine及Write方法来写入数据到文件中。省略状态下表示将文件打开为“只读”文件。

• 是否自动创建文件：

可以设轩成True或False，若设置成True，则打开文件时不存在就自动创建新文件并打开；如果设置成False时，则打开的文件必须为已存在文件，否则会产生“找不到文件”的错误（错误编码=53）。省略状态下表示打开的文件必须为已存在文件。

源码示例：

<%
'================================================
'作者：阿里西西
'网址：http://www.alixixi.com/
'源码：FSO移动文件，重命名文件示例
'时间：2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")

'将File1.txt打开成只读文件，File1.txt必须是只已存在的文件
Set txt = fs.OpenTextFile(File) '参数二三均可省略

'将File.txt打开成只读文件，File1.txt若不存在，则先创建文件
Set txt = fs.OpenTextFile(File,1,True)

'将File.txt打开成只写文件，File1.txt若不存在，则先创建文件
Set txt = fs.OpenTextFile(File,2,True)

'将File.txt打开成只写文件，File1.txt必须是已存在的文件
Set txt = fs.OpenTextFile(File,8)
%>