第10章 文件操作系统.pptVIP

第10章　文件操作系统 10.1　文件系统控件 10.2 通用对话框控件 本章结束 大连理工大学出版社 大连理工大学出版社 新世纪应用型高等教育 计算机类课程规划教材 Visual Basic 程序设计 （第二版） 　　在许多应用程序中，当打开文件或将数据存入磁盘时，需要显示、了解有关磁盘驱动器、目录和文件等信息。为此VB提供了驱动器列表框(DriveListBox)、目录列表框(DirListBox)、文件列表框(FileListBox)三种用于文件管理的控件及通用对话框(Common Dialog)控件，通常将它们组合使用。这四种控件是Visual Basic内部的标准控件，存在于工具箱之中。 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox) 作用: 获取有关驱动器、目录和文件的当前状态 10.1.1 驱动器列表框(DriveListBox) 　　显示系统中所有有效磁盘驱动器 1. 属性: Drive— 返回或设置驱动器名称只能在运行时设置，值—A:C:D:E: 等 例: Drive1.Drive=c: 注意: 改变Drive属性并不能自动变更当前驱动器，要改变当前驱动器需使用 ChDrive 语句。 例: ChDrive D: 例: ChDrive Drive1.Drive 2. 事件: Change—当选择一个新驱动器或通过代码 改变 Drive 属性时发生。 例: 将选择的驱动器设置为当前驱动器: Private Sub Drive1_Change() ChDrive Drive1.Drive End Sub 10.1.2 目录列表框(DirListBox) 　　显示一个树型的目录结构 1. 属性: Path—设置或返回当前工作目录的完整路径(包括驱动器盘符) 例: Dir1.Path = c:\winnt 注意: 在目录列表框中选择目录不能改变当前目录, 要真正改变当前目录需使用ChDir语句。 例: ChDir c:\system 例: ChDir Dir1.Path 2. 事件: Change—当双击一个目录项或通过代码改变 Path 属性时发生。 例: 将选择的路径设置为当前路径 Private Sub Dir1_Change() ChDir Dir1.Path End Sub 10.1.3 文件列表框(FileListBox) 　　显示特定目录下的文件。 1. 属性 (1) Path 设置或返回当前工作目录的完整路径。 (2) FileName 设置或返回所选文件的路径和文件名。 设置时: 文件名可以带路径 返回时: 文件名不含路径名 (3) Pattern:设置对显示文件的过滤。 例: Filelistbox1.Pattern= *.EXE ; *.COM 只显示以 .EXE和 .COM为后缀的文件 2. 事件 Click 和DblClick事件 10.1.4 文件系统综合应用 　　例10.1 :创建一个文件浏览器，界面如图： 例10.2 :使用以下界面进行文件的复制和删除。 Drive1 Dir1 File1 Drive2 Dir2 File2 Private Sub Drive1_Change() ChDrive Drive1.Drive Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() ChDir Dir1.Path File1.FileName = Dir1.Path End Sub Private Sub Drive2_Change() ChDrive Drive2.Drive Dir2.Path = Drive2.Drive End Sub Private Sub Dir2_Change() ChDir Dir2.Path File2.FileName = Dir2.Path End Sub 例10.2 程序代码如下： Private Sub Command1_Click() 复制 If File1.FileName = Then MsgBox 请选择文件 Exit Sub End If srcfile = Dir1.Path \ File1