Visual Basic程序设计（理论篇 第二版） 高职计算机应用技术专业 陈英 第9章 文件处理.ppt

尚辅网 第9章 文件处理 第9章 文件处理 9.1 文件系统控件 9.2 File System Object模型介绍 9.3 传统文件存取操作 第9章 文件处理 9.1 文件系统控件 9.2 File System Object模型介绍 9.3 传统文件存取操作 9.1 文件系统控件 驱动器列表框 目录列表框 文件列表框 文件系统控件组合使用 文件操作语句和函数 驱动器列表框 驱动器列表框（DriveListBox）是下拉式列表框，其系统默认名为Drive1。 驱动器列表框 设置驱动器有以下三种方法： （1）直接在驱动器列表框中输入有效的驱动器标识符，也可单击驱动器列表框右侧的箭头，在下拉列表框中选定新驱动器，缺省时显示系统当前驱动器。 （2）在代码中用Drive 属性来设置当前驱动器。 格式：Object.Drive = [DriveName] 其中，Object参数为驱动器列表框的名称；DriveName参数为驱动器名，如果省略则为系统当前默认驱动器。 驱动器列表框 设置驱动器有以下三种方法： （3）在代码中用ChDrive 语句设置驱动器。 格式：ChDrive 〈DriveName〉 其中，假设设置当前驱动器为D，可用语句Drive1.Drive = “D:\” 或 ChDrive “D” 。 如果要自动地变更当前的工作驱动器，则可使用语句ChDrive Drive1.Drive。 目录列表框 目录列表框（DirListBox）用于显示用户系统上的当前驱动器或指定驱动器上的目录结构，其系统默认名为Dir1。 目录列表框 目录列表框中的每一个目录都关联着一个唯一的标识符ListIndex，通过该标识符可区别目录列表框中的每一个目录。 当前指定的目录总是ListIndex 值为 –1。紧邻其上的目录ListIndex 值为— 2，再上一个为 ListIndex值为— 3；紧邻其下的子目录中，第一个子目录ListIndex 值为 0，第二个子目录ListIndex 值为 1；依次类推。 目录列表框 设置目录有以下三种方法： （1）直接在目录列表框中选择目录，缺省时显示系统当前目录。 （2）在代码中用Path 属性来设置当前目录。 格式：Object.Path = [Pathname] 其中，Object为目录列表框的名称；PathName参数设置目录名，如果省略则为系统当前默认路径。 目录列表框 设置目录有以下三种方法： （3）在代码中用ChDir 语句设置驱动器。 格式：ChDir 〈Pathname〉 假设设置当前目录为C：\programe file，可用语句Dir1.Path = C：\programe file 或ChDrive C：\programe file ； 文件列表框 文件列表框常与目录列表框配合使用，来显示指定目录下的文件列表，在文件列表框中选择要操作的一个或多个文件, 其系统默认名为File1 。 文件列表框 文件列表框常用属性有： Path 属性：设置或返回在文件列表框中显示的文件路径。 Pattern 属性：设置在文件列表框中要显示的文件类型。 Archive、Normal、System、Hidden 和 ReadOnly属性：在文件列表框中指定要显示的文件类型。 文件列表框 文件系统控件组合使用 通常驱动器列表框、目录列表框和文件列表框一起使用，在显示信息时同步。若产生此效果，需要有两个Change事件。 1.驱动器列表框的Change 事件 ，代码如下： Private Sub Drive1_Change () Dir1.Path = Drive1.Drive End Sub 2.目录列表框的Change 事件，代码如下： Private Sub Dir1_Change () File1.Path = Dir1.Path End Sub 文件系统控件组合使用 【例9–1】图片浏览器。 文件操作语句和函数 1．文件操作语句 （1）MkDir 语句： 创建一个新的目录或文件夹。 格式：MkDir path （2）RmDir 语句：删除一个存在的目录或文件夹。 格式：RmDir 〈path〉 注意：RmDir语句只能删除空的子目录或文件夹，不能删除根目录或当前目录。 （3）Kill 语句： 从磁盘中删除已关闭的文件。 格式：Kill〈path〉 文件操作语句和函数 1．文件操作语句 （4）FileCopy 语句：复制一个已关闭的文件。 格式：FileCopy 〈source〉, 〈destination〉 （5）Name 语句： 对已关闭的文件或目录重新命名。 格式：Name〈oldpathname〉As〈newp