FSO对象模型在VB中的应用

　　从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展，加上面向对象编程概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO。

　　一、简介

　　文件系统对象FSO的英文全称是File System Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

　　FSO 对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除，而且可以检测是否存在指定的文件夹，如果存在，那么，这个文件夹又位于磁盘上的什么位置。更令人高兴的是FSO 对象模型还可以获取关于文件和文件夹的信息，如名称、创建日期或最近修改日期等以及当前系统中使用的驱动器的信息，如驱动器的种类是CD－ROM还是可移动磁盘，当前磁盘的剩余空间还有多少。而以前要获取这些信息必须通过调用Windows API函数集中的相应函数才能实现。

　　FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。其中Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型；Folder用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作；File的基本操作和Folder基本相同，所不同的是Files的操作主要是针对磁盘上的文件进行的；FileSystemObject是FSO对象模型中最主要对象，它提供了一套完整的可用于创建、删除文件和文件夹，收集驱动器、文件夹、文件相关信息的方法。需要注意的是，FSO对象模型提供的方法是冗余的，也就是说在实际使用中，FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作，而且FileSystemObject对象的方法直接作用于其余对象，所以在后面的文章中并没有单独提到FileSystemObject对象，千万不要以为没有提到就不重要，事实上FileSystemObject对象在整个FSO对象模型中无处不在；最后的TextStream对象则是用来完成对文件的读写操作的。

　　在初步了解了FSO对象模型之后，下面我们通过实际的代码对不同的对象进行进一步的阐述。

　　二、FSO对象模型的应用

　　（一）创建FSO对象模型

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

　　要创建FSO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型：

　　　Dim fsoTest As New FileSystemObject；

　　另一种是通过CreateObject方法创建一个FSO 对象：

　　　Set fsoTest = CreateObject(“Scripting.FileSystemObject")；

　　在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。

　　完成了FSO对象模型的创建之后，就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了，具体的方法在下面结合各个对象分别讲述。

　　（二）Drive对象

　　 上面已经提到Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法，其应用都是通过属性表现出来的，所以我们必须熟悉Drive对象的属性：

属性

Dim drv1 As Drive, sReturn As String

Set drv1 = fsoTest.GetDrive(“C:\\")

sReturn = “Drive " ＆ “C:\\" ＆ vbCrLf

sReturn = sReturn ＆ “VolumeName" ＆ drv1.VolumeName ＆ vbCrLf

sReturn = sReturn ＆ “Total Space: " ＆ FormatNumber(drv1.TotalSize / 1024, 0)

sReturn = sReturn ＆ “Kb" ＆ vbCrLf

sReturn = sReturn ＆ “Free Space: " ＆ FormatNumber(drv1.FreeSpace / 1024, 0)

sReturn = sReturn ＆“Kb" ＆ vbCrLf

sReturn = sReturn ＆“FileSystem:" ＆ drv1.FileSystem ＆ vbCrLf

MsgBox sReturn

　　其中GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。该方法的语法格式为object.GetDrive drivespec，object是一个FSO对象的名称，drivespec用于指定驱动器的名称。

按F5运行上述代码，按下TestDrive按钮就会弹出一个消息框显示C盘的信息。

　Dim fsoTest As New FileSystemObject

　Dim folder1 As Folder

　并且分别在三个命令按钮的click事件输入以下代码：

Private Sub CmdCreate_Click()

　' 获取 Folder 对象。

　Set folder1 = fsoTest.GetFolder(“C:")

　'创建文件夹

　fsoTest.CreateFolder (“C:\\Test")

　MsgBox “folder C:\\Test has created"

End Sub

Private Sub CmdDelete_Click()

　' 获取 Drive 对象。

　Set folder1 = fsoTest.GetFolder(“C:")

　'删除文件夹 

　fsoTest.DeleteFolder (“C:\\Test")

　MsgBox“folder C:\\Test has deleted"

End Sub

Private Sub CmdGetPro_Click()

　'获取文件夹的有关信息 

　Dim sReturn As String

　Set folder1 = fsoTest.GetFolder(“C:\\Windows")

　'sReturn = “The folder's Attributes is " ＆ folder1.Attributes ＆ vbCrLf

　'获取最近一次访问的时间

　sReturn = sReturn ＆ “The folder's last access time is " ＆ folder1.DateLastAccessed ＆ 　vbCrLf

　'获取最后一次修改的时间

　sReturn = sReturn ＆ “The folder's last modify time is " ＆ folder1.DateLastModified ＆ vbCrLf

　'获取文件夹的大小

　sReturn = sReturn ＆ “The folder's size is " ＆ FormatNumber(folder1.Size / 1024, 0)

　sReturn = sReturn ＆ “Kb" ＆ vbCrLf

　'判断文件或文件夹类型

　sReturn = sReturn ＆ “The type is " ＆ folder1.Type ＆ vbCrLf

　MsgBox sReturn

End Sub

Set fil 1= fsoTest.CreateTextFile(“c:\estfile.txt", True)

Set ts1 = fsoTest.OpenTextFile(“c:\estfile.txt", ForWriting)