File System Object（FSO对象）A

FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象：

1、Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型

2、Folder用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作

3、File的基本操作和Folder基本相同，所不同的是Files的操作主要是针对磁盘上的文件进行的

4、FileSystemObject是FSO对象模型中最主要对象，它提供了一套完整的可用于创建、删除文件和文件夹，收集驱动器、文件夹、文件相关信息的方法。需要注意的是，FSO对象模型提供的方法是冗余的，也就是说在实际使用中，FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作，而且FileSystemObject对象的方法直接作用于其余对象，所以在后面的文章中并没有单独提到FileSystemObject对象，千万不要以为没有提到就不重要，事实上FileSystemObject对象在整个FSO对象模型中无处不在

5、TextStream对象则是用来完成对文件的读写操作的

一、创建FSO对象

1、方法将一个变量声明为FSO对象类型：

由于FSO对象包含在Scripting 类型库 (Scrrun.Dll）中，所以在使用前首先需要在在工程中引用这个文件，单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。

Dim FSOTest As New FileSystemObject '前期绑定优点对象的方法属性自动列出成员、速度

2、方法通过CreateObject方法创建一个FSO 对象：

Dim FsoTest As Variant
Set FsoTest = CreateObject("Scripting.FileSystemObject") '后期绑定 优点：不需要工程引用兼容性好

二、Drive对象

 Drive只有属性：

1. AvailableSpace：返回在指定的驱动器或网络共享上的用户可用的空间容量。

2. DriveLetter：返回某个指定本地驱动器或网络驱动器的字母，这个属性是只读的。

3. DriveType：返回指定驱动器的磁盘类型。

4. FileSystem：返回指定驱动器使用的文件系统类型。

5. FreeSpace：返回指定驱动器上或共享驱动器可用的磁盘空间，这个属性是只读的。

6. IsReady：确定指定的驱动器是否准备好。

7. Path ：返回指定文件、文件夹、或驱动器的路径。

8. RootFolder：返回一个 Folder 对象，该对象表示一个指定驱动器的根文件夹。只读属性。

9. SerialNumber：返回用于唯一标识磁盘卷标的十进制序列号。

10. ShareName：返回指定驱动器的网络共享名。

11. TotalSize：以字节为单位，返回驱动器或网络共享的总空间大小。

12. VolumeName：设置或返回指定驱动器的卷标名。

例子：

Sub DriveTest()
Dim FsoTest As New FileSystemObject
Dim Drv As Drive, sReturn As String

    Set Drv = FsoTest.GetDrive("C:")
    sReturn = "Drive " & "C:" & vbCrLf
    sReturn = sReturn & "VolumeName" & Drv.VolumeName & vbCrLf
     'VolumeName：设置或返回指定驱动器的卷标名
     
    sReturn = sReturn & "Total Space: " & FormatNumber(Drv.TotalSize / 1024, 0)
    'TotalSize：以字节为单位，返回驱动器或网络共享的总空间大小
    
    sReturn = sReturn & "Kb" & vbCrLf
    sReturn = sReturn & "Free Space: " & FormatNumber(Drv.FreeSpace / 1024, 0)
    'FreeSpace：返回指定驱动器上或共享驱动器可用的磁盘空间，这个属性是只读的
    
    sReturn = sReturn & "Kb" & vbCrLf
    
    sReturn = sReturn & "FileSystem:" & Drv.FileSystem & vbCrLf
    'FileSystem：返回指定驱动器使用的文件系统类型
    Debug.Print sReturn
End Sub

三、Folder对象

FileSystemObject对象有关文件夹的方法：(注意这里对象是FileSystemObject)

1. CreateFolder：创建一个文件夹。

2. DeleteFolder：删除一个文件夹。

3. MoveFolder：移动一个文件夹。

4. CopyFolder：复制一个文件夹。

5. FolderExists：查找一个文件夹是否在驱动器上。

6. GetFolder：获得已有Folder对象的一个实例。

7. GetParentFolderName：找出一个文件夹的父文件夹的。

8. GetSpecialFolder：找出系统文件夹的路径。

Folder对象的方法：

1. Delete ：删除一个文件夹。

2. Move ：移动一个文件夹。

3. Copy：复制一个文件夹。

4. Name：检索文件夹的名称。

四、File对象

由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。

例子：

Sub FileTest()
    Dim FsoTest As New FileSystemObject
    Dim TxS As TextStream
    If FsoTest.FileExists("c:	estfile.txt") = False Then
        Set TxS = FsoTest.CreateTextFile("c:	estfile.txt") '不存在File需要先创建
    Else
        Set TxS = FsoTest.OpenTextFile("c:	estfile.txt", ForWriting)
    End If
    '写入数据
    With TxS
        TxS.WriteLine "hello word"
        .Close
    End With
    
    '读取数据
    With FsoTest.OpenTextFile("c:	estfile.txt", ForReading)
        Debug.Print .ReadLine
        .Close
    End With
End Sub