VBA_FSO对象模型[归纳].pdfVIP

VBA 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 对象包含在 Scripting 类型库 (Scrrun.Dll) 中，所以在使用前首先需要在在工程中引用 这个文件，单击 “工程 ”，“引用 ”，然后在 “引用 ”对话框中选中 “Microsoft Scripting Runtime前的复选” 框，然后单击 “确定 ”。 要创建 FSO 对象可以采用两种方法，一种是将一个变量声明为 FSO 对象类型： Dim fsoTest As New FileSystemObject ；另一种是通过 CreateObject 方法创建一个 FSO 对象： Set fsoTest = CreateObject( “Scripting.FileSystemObject)。在实际使用中具体采用哪种声明方法，可根据个人的使 用习惯而定。 完成了 FSO 对象模型的创建之后， 就可以利用创建的对象模型的方法访问下属各个对象的属性 来获取所需信息或进行相关操作了 FileSystemObject 对象有许多用来操作文件系统的方法和属性。下面先看一个例子，如下面的代码： Sub FileInfo( ) Dim fs As Object Dim objFile As Object Dim strMsg As String Set fs = CreateObject(Script