VisualBasic程序设计（第二版） 丁爱萍 第11章 文件、驱动器和文件夹.pptVIP

第11章 文件、驱动器和文件夹 11.1 文件系统控件 11.2 文件系统对象 11.3 传统的文件I/O语句和函数 习题十一 11.1 文件系统控件 11.1.1 驱动器列表框 驱动器列表框DriveListBox是下拉式列表框，它与目录列表框、文件列表框一样，有许多标准属性，包括Enabled、Visible等。 图11.1 在运行期间的驱动器列表框 11.1.2 目录列表框 目录列表框用来显示当前驱动器上的目录结构，刚建立时显示当前驱动器的顶层目录和当前目录。顶层目录用打开的文件夹表示，当前目录用加阴影的文件夹表示，当前目录下的子目录用关闭的文件夹表示，如图11.2所示。 图11.2 在设计阶段的目录列表框 11.1.3 文件列表框 用驱动器列表框和目录列表框可以指定当前驱动器和当前目录，而文件列表框可以用来显示当前目录下的文件(可以通过Path属性改变)。 文件列表框的默认控件名是File1。与文件列表框有关的属性较多，其主要属性如表11-1所示。 表11-1 文件列表框的常用属性 【例11-1】 在实际应用中，驱动器列表框、目录列表框和文件列表框往往需要同步操作，请编写程序使三者同步。 可以通过改变Path属性来引发Change事件： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 该事件过程使窗体上的目录列表框Dir1与文件列表框File1产生同步。类似地，增加下面的事件过程，就可以使三者同步。 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 同步操作情况如图11.3所示。 图11.3 使驱动器列表框、目录列表框、文件列表框三者同步 11.2 文件系统对象 11.2.1 文件系统对象的概念 1. File System Object模型 VB 6.0具有FSO模型功能，该模型提供了一个基于对象的工具来处理文件夹和文件。 2. 文件系统对象(File System Object) FSO模型包括表11-2所示的对象。 表11-2 FSO模型中的对象 FSO模型包含在一个称为Scripting的类型库中，此类型库位于Scrrun.Dll文件中。如果还没有引用此文件，从“工程”菜单的“引用”对话框中选择“Microsoft Scripting Runtime项，如图11.4所示，然后就可以使用“对象浏览器”来查看其对象、集合、属性、方法、事件以及常数。 图11.4 “引用”对话框 11.2.2 使用文件系统对象编程 1. 创建FileSystemObject对象 使用文件系统对象编程，首先必须创建一个FileSystemObject对象，然后才能使用其方法、属性来管理驱动器、文件夹和文件等对象。 有两种方法可以创建一个FileSystemObject对象。 (1) 将一个变量声明为FileSystemObject对象类型，如下所示： Dim〈变量名〉As New FileSystemObject (2) 使用CreateObject方法来创建一个FileSystemObject对象，如下所示： Set〈变量名〉= CreateObject(Scripting.FileSystemObject) 2. 使用适当的方法 在FileSystemObject对象中，某些操作可以使用不同的方法，例如，想要创建一个新对象，既可以使用CreateFolder方法也可以使用CreateTextFile方法。(FSO对象模型不支持创建或删除驱动器。) 3. 访问已有的驱动器、文件和文件夹 要访问一个已有的驱动器、文件或文件夹，可使用FileSystemObject对象中相应的“Get”方法：GetDrive