第8章文件 主讲：吴星
第8章 文 件 主 讲：吴 星
内容提要：介绍文件系统控件、常见的文件类 型及其基本操作，包括顺序文件、随机文件和 二进制文件。 重点：各种文件的读写操作。 难点：不同类型的文件有不同的读写操作命令。 讲课思路：先介绍文件系统控件的意义和应用， 然后介绍文件的读写，包括各种类型文件的特点、 不同的读写机制与命令。结合例子进行讲解。 2
2 内容提要：介绍文件系统控件、常见的文件类 型及其基本操作，包括顺序文件、 随机文件和 二进制文件。 重 点：各种文件的读写操作。 难 点：不同类型的文件有不同的读写操作命令。 讲课思路：先介绍文件系统控件的意义和应用, 然后介绍文件的读写,包括各种类型文件的特点、 不同的读写机制与命令。结合例子进行讲解
8.1文件系统控件 文件的操作包括：文件管理、文件读写。 文件管理功能：文件系统控件、文件操作语包。 文件系统控件：3种 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox) 3
3 8.1 文件系统控件 文件系统控件：3种 驱动器列表框（DriveListBox） 目录列表框（DirListBox） 文件列表框（FileListBox） 文件的操作包括：文件管理、文件读写。 文件管理功能：文件系统控件、文件操作语句
、 驱动器列表框(DriveListBox) 一种下拉式列表框；列举出计算机中所有 驱动器，供用户选择。 Drive属性：引用或设置所选定的驱动器。 访问Drive,属性的语法形式： 对象名.Drive[=Drive] Change事件：Drive属性值改变时触发。 4
4 一、驱动器列表框(DriveListBox) 一种下拉式列表框；列举出计算机中所有 驱动器，供用户选择。 Drive属性：引用或设置所选定的驱动器。 访问Drive属性的语法形式： 对象名.Drive[=Drive] Change 事件： Drive属性值改变时触发
例： Private Sub Form Load() 设置初始显示d:驱动器 Drivel.Drive ="d: End Sub Private Sub Drive1 Change() 测试Change事件 Print Drive1.Drive End Sub 5
5 Private Sub Form_Load() '设置初始显示d:驱动器 Drive1.Drive = "d:" End Sub Private Sub Drive1_Change() '测试Change事件 Print Drive1.Drive End Sub 例：
二、目录列表框(DirListBox) 显示某目录下的目录结构；可通过双击打开 某目录（选定）。 Path属性：引用或设置所选定目录的路径。 访问Path属性的语法形式： 对象名.Path[=pathname] Change事件：Path属性值改变时触发。 6
6 二、目录列表框(DirListBox) 显示某目录下的目录结构；可通过双击打开 某目录（选定）。 Path属性：引用或设置所选定目录的路径。 访问Path属性的语法形式： 对象名.Path[=pathname] Change 事件：Path属性值改变时触发
例： Private Sub Form Load() Dirl.Path "e:\wx" '设置选定的目录 End Sub Private Sub Dir1 Change() Print Dir1.Path 返回选定目录的路径 End Sub 7
7 Private Sub Form_Load() Dir1.Path = "e:\wx" '设置选定的目录 End Sub Private Sub Dir1_Change() Print Dir1.Path '返回选定目录的路径 End Sub 例：
如何实现目录列表框与驱动器列表框同步？ Private Sub Drivel Change() Dir1.Path Drivel.Drive End Sub 8
8 如何实现目录列表框与驱动器列表框同步？ Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
三、文件列表框(FileListBox) 显示某目录下的文件。 Path属性：引用或设置文件所在的路径，同目录列表框。 Pattern属性：引用或设置所显示的文件类型。 对象名.Pattern[=value] value的值如：“*.*”、“*.bmp”、“*txt”、 “*.fm”等 例：Filel.Pattern=“*.fm 9
9 三、文件列表框(FileListBox) 显示某目录下的文件。 Path属性：引用或设置文件所在的路径，同目录列表框。 Pattern属性：引用或设置所显示的文件类型。 对象名.Pattern[=value] value的值如：“ *.* ” 、 “ *.bmp ” 、 “ *.txt ” 、 “ *.frm ” 等 例：File1.Pattern= “ *.frm
例：三种列表框组合使用，达到同步效果。 Private Sub Drivel Change() Dir1.Path Drivel.Drive End Sub Private Sub Dirl Change() Filel.Path Dir1.Path End Sub 10
10 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 例：三种列表框组合使用，达到同步效果