VBA中的FileSystemObject对象(FSO)和文本流

对FileSystemObject一直略有耳闻，VBA爱好者常常简称为FSO对象。

在Scripting类库中有三个可以直接使用NEW关键字实例化的类，第一个就是常用的字典，第三个是FSO。

一、FSO对象引用的方法:

 前期绑定：先要引用类库文件scrrun.dll，写代码的时候有智能提示。如果程序发给别人用，就要用后期绑定方式。

 Dim fso As New Scripting.FileSystemObject 

 后期绑定：不需要引用类库文件，但没有智能提示。

 Set fso = CreateObject("Scripting.FileSystemObject") 

二、使用FSO对象的CreatTextFile方法

      可以使用该方法创建一个文本文件。第5行执行后，文本文件已经创建在硬盘中。

Sub CreateAndWrite()

Dim fso As New Scripting.FileSystemObject
Dim wfsm As Scripting.TextStream
Set wfsm = fso.CreateTextFile("d:	est.txt", True)
wfsm.WriteLine (Now)

wfsm.Close

End Sub

1、CreatTextFile语法：object.CreateTextFile(filename[, overwrite[, unicode]])。

                                       参数1：要创建的文件的全路径，字符串。

                                       参数2：Bool值，如果相同路径存在同名文件，是否覆盖。

                                       参数3：Bool值，用什么编码写入文件，默认是ASCII(true)，也可以是unicode

     返回值是TextStream类型对象，也就是本文的另一个重点，文本流。

2、为方便使用文本流对象，我在第4行做了显式的类型声明wfsm。

3、使用wfsm的WriteLine方法，把字符串按行写入文件。本例是把本机的时间写入文件。

4、Colse方法关闭流。

三、使用OpenTextFile方法

这个方法的功能很多，可以读、写、追加写入。如果目标文件不存在还可以根据需求创建文件。

语法：object.OpenTextFile(filename[, iomode[, create[, format]]])

                                  参数1：要创建的文件的全路径，字符串。

                                          参数2：常数。ForReading读取、ForWriting写入,ForAppending在文件末尾追加写入

                                          参数3：Bool值，如果文件不存在，是否创建。 默认是False不创建。

                                  参数4：以什么编码形式打开文件

Sub OpenTextAndWriteRead()
Dim fso As New Scripting.FileSystemObject
Dim rfsm As Scripting.TextStream
Dim wfsm As Scripting.TextStream
Dim str As String

'创建一个流用来写入
Set wfsm = fso.OpenTextFile("d:	est.txt", ForAppending)
    n = 1
    Do
         wfsm.WriteLine ("第" & n & "行:" & Now)
         n = n + 1
    Loop Until n = 11
wfsm.Close

'创建一个流用来读取
Set rfsm = fso.OpenTextFile("d:	est.txt", ForReading)
    Do
        str = rfsm.ReadLine
        Debug.Print str
    Loop Until rfsm.AtEndOfLine
    
rfsm.Close

End Sub

第8-13行，创建一个文本流追加写入文件。第17-21行，把上面写入的内容读出出来。AtEndofLine判断是否到了末尾行号

四、文本流TextStream的一些方法和属性

    本文标题虽然是FSO，但读取和写入文件实际使用的都是TextStream的对象

1、文本流TextStream类型不能用New创建实例。但可以像例子中使用FSO的某些方法创建，也可以使用File对象的某些方法创建(见后)。

    a.不同的创建方式得到不同的流对象。

    b.如果创建的是读取的流，但使用了Write方法，在运行时就会报错。

    c.相同方式创建的同一文本文件的多个流不能共存。下面的代码运行到第7行会报错"权限的拒绝"。其它要注意的特性可自行测试

Sub Test()
Dim fso As New Scripting.FileSystemObject
Dim wfsm1 As Scripting.TextStream
Dim wfsm2 As Scripting.TextStream

Set wfsm1 = fso.OpenTextFile("d:	est.txt", ForAppending)
Set wfsm2 = fso.OpenTextFile("d:	est.txt", ForAppending)
   
wfsm1.Close
wfsm2.Close
End Sub

 2、文本流有几个不同的读取和写入方法(如上所述要注意和流的类型相匹配，否则会在运行时报错)。    

     读取：Read,ReadAll,ReadLine
     写入：Write,WriteLine,WriteBlankLines

3、文本流还有一些实用的属性。

    AtEndOfLine：        文件指针正好在行尾标记，则返回TRUE
    AtEndOfStream：   文件指针在文件末尾，则返回TRUE
    Line：                   返回一个 TextStream 文件中的当前行号。
    Column:                返回 TextStream 文件中当前字符位置的列号。

4、流在使用后不要忘了Close

五、使用File对象创建TextStream

     行号3定义File类型，行号6使用Fso的GetFile方法得到File对象。WriteBlankLines(2)写入2行空行。

Sub FileAndTextStream()
    Dim fso As New Scripting.FileSystemObject
    Dim fe As Scripting.file

    Set fe = fso.GetFile("d:	est.txt")
   
    fe.OpenAsTextStream(ForWriting).WriteLine ("今天天气好晴朗")
    fe.OpenAsTextStream(ForAppending).WriteBlankLines (2)
    fe.OpenAsTextStream(ForAppending).WriteLine ("处处好风光")
    Debug.Print fe.OpenAsTextStream(ForReading).ReadAll
    
End Sub

六、其他

     使用File对象还可以做更多其他事情，比如获取文件名、文件的创建时间等。

     FSO也还有许多非常有用的方法，比如获取目录下的所有文件、判断目录下是否存在某个特定文件等。

     不再赘述。