vb程序设计第五章 PPT.ppt

* 第5讲 文件处理应用程序设计 教学要求 1．掌握文件读写的基本方法； 2、掌握与文件处理相关的语句和函数的用法； 3、理解文件系统控件的基本功能； 4、了解文件管理器应用程序开发过程。 5.1 文件管理器程序任务 5.1.1 任务概述 文件是指存储在外部介质上的数据的集合，是一种可以永久性存储数据的形式。操作系统以文件为单位管理数据，文件名是文件访问的标示。把数据写入文件或从文件中读取数据，计算机需要先根据文件名找到指定的文件，然后再执行读写操作。 采用VB中提供的驱动器列表框、目录列表框和文件列表框三种控件可实现上述功能。在本章中我们将建立一个简单的文件管理器。 5.1 文件管理器程序任务 5.1.2 界面设计 1、创建工程 2、创建窗体 5.1.3 代码设计 1、编写ClearAttr过程 2、编写ShowAttr过程 3、驱动器列表框控件的Change事件 4、目录列表框控件的Change事件 5、文件列表框控件的Change事件 5.2 文件系统控件及相关语句 5.2.1 改变当前驱动器 语法：ChDrive 驱动器名 说明：驱动器名是一个字符串表达式，指定一个存在的驱动器。使用空字符串，驱动器不变；使用多个字符，则使用首字母。 例：ChDrive “D” 5.2.2 改变当前目录 语法：ChDir 路径名 说明：语句改变缺省目录位置，但不会改变缺省驱动器位置。 例：ChDir “D:\Temp” 5.2 文件系统控件及相关语句 5.2.6 创建新目录 语法：MkDir 目录名 说明：若没有指定驱动器，则在当前驱动器上创建目录。例：Mkdir “成绩单 5.2.7 删除目录 语法：RmDir 目录名 说明：在使用此命令前，应先使用Kill命令删除所有文件，否则会发生错误。 例：RmDir “C:\成绩单\临时文件夹” 5.2 文件系统控件及相关语句 5.2.8 得到当前路径 语法：CurDir 驱动器名 说明：若没有指定驱动器，或驱动器名为空，在返回当前驱动器的路径。返回值为Variant（String）。 C盘的当前路径为C:\Program Files D盘的当前路径为D:\Visual Basic程序设计 当前驱动器为C，则： Dim MyPath As String MyPath=CurDir ‘返回C:\Program Files MyPath=CurDir(“C”) ‘返回C:\Program Files MyPath=CurDir(“D”) ‘返回D:\Visual Basic程序设计 5.2 文件系统控件及相关语句 5.2.9 设置文件属性 语法：SetAttr 文件名,文件属性值 SetAttr “test.txt”,vbArechive+vbReadOnly 常数 值 描述 vbNormal 0 常规（默认值） vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件 vbDirectory 16 目录或文件夹 vbArchive 32 存档文件 vbAlias 64 指定的文件名是别名 5.2 文件系统控件及相关语句 5.2.10 得到文件属性 语法：GetAttr 文件名 若当前文件夹下有一个test.txt，通过以下方法可获得文件的属性： Dim iAttr As Integer:iAttr=GetAttr(“test.txt”) If iAttr And vbNormal Then:debug.print “普通文件” If iAttr And vbReadOnly Then:debug.print “只读文件” If iAttr And vbHidden Then:debug.print “隐藏文件” If iAttr And vbSystem Then:debug.print “系统文件” If iAttr And vbDirectory Then:debug.print “目录” If iAttr And vbArchive Then:debug.print “存档文件” 5.2 文件系统控件及相关语句 5.2.11 常用文件系统控制 1、驱动器列表框 下拉式列表框，显示计算机内全部有效的驱动器。最常用的属性为Drive属性，该属性用于在程序运行时设置或返回选定的驱动器，只在运行阶段有效。如：Drive1.Drive=“C:” ‘指定C盘为当前驱动器 使用ChDrive可以使指定的驱动器设置为当前驱动器。 ChDrive Drive1.Drive 驱动器列表框最重要的事件是Chan