vb60高清教程系列 第09章 文件(共九章).pdf

《vb60高清教程系列 第09章 文件(共九章).pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第五章文件本章内容及要求：1掌握文件系统控件（驱动器列表框drvDrive、目录列表框dirDirectory、文件列表框filFile。2掌握VB中文件的概念、种类及其结构；3掌握顺序文件的操作：打开、读/写、关闭；4了解随机文件的操作：打开、读/写、关闭；5了解二进制文件的操作。6了解使用FileSystemObject(FSO)对象模型对文件进行操作的一些基础知识本章重点：1文件系统控件驱动器列表框、目录列表框、文件列表框的使用。2顺序文件的操作：打开、读/写、关闭；本章难点：随机文件、二进制文件的操作，FileSystemObject(FSO)对

2、象模型。教学方法：9.1文件的概念一、文件及其结构文件：存储在外部介质上数据的集合。按名存取磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。数据项二、文件分类根据访问文件的方式将文件分成3类：Ø顺序文件Ø随机文件Ø二进制文件。1．顺序文件顺序文件（SequentialFile）是普通的文本文件。顺序文件中的记录按顺序一个接一个地排列。读写文件存取记录时，都必须按记录顺序逐个进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔符号。2．随机文件随机文件（RandomAccessFile）是可

3、以按任意次序读写的文件，其中每个记录的长度必须相同。在这种文件结构中，每个记录都有其唯一的一个记录号，所以在读取数据时，只要知道记录号，便可以直接读取记录。随机文件的文件结构3．二进制文件二进制文件（Binaryfile）是字节的集合、它直接把二进制码存放在文件中。除了没有数据类型或者记录长度的含义以外，它与随机访问很相似。二进制访问模式是以字节数来定位数据，在程序中可以按任何方式组织和访问数据，对文件中各字节数据直接进行存取。9.2文件系统控件VB提供了3种可直接浏览系统目录结构和文件的控件：驱动器列表框、目录列表框、文件列表框。驱动器列表框目文录件列

4、列表表框框9.2.1驱动器列表框（DriveListBox）驱动器列表框（DriveListBox）控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出计算机拥有的所有磁盘驱动器，供用户选择。1．重要属性Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计时不可用。使用格式：object.Drive[=<字符串表达式>]例如：Drive1.drive=“D:”2．重要事件——Change事件在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生。9.2.2目录列表框（DirList

5、Box）目录列表框（DirListBox）控件用来当前驱动器目录结构及当前目录下的所有子文件夹（子目录）。供用户选择其中一个目录为当前目录。1．常用属性Path属性是目录列表框控件的最常用的属性，用于返回或设置当前路径。该属性在设计时是不可用的。使用格式：Object.Path[=<字符串表达式>]其中：Object：对象表达式，其值是目录列表框的对象名。<字符串表达式>：用来表示路径名的字符串表达式。例如，Dir1.Path="C:Mydir"。缺省值是当前路径。说明：Path属性也可以直接设置限定的网络路径如，\网络计算机名共享目录名path

6、List、ListCount和ListIndex等属性，这些属性与列表框（ListBox）控件基本相同。目录列表框中的当前目录的ListIndex值为-1。紧邻其上的目录具有ListIndex值为-2，再上一个的ListIndex值为-3，如右图所示。2．重要事件——Change事件与驱动器列表框一样，在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触发其Change事件发生。9.2.3文件列表框（FilelistBox）文件列表框（FileListBox）控件用来显示Path属性指定的目录中的文件定位并列举出来。该控件用来显示

7、所选择文件类型的文件列表。1．常用属性（1）Path属性用于返回和设置文件列表框当前目录，设计时不可用。说明：当Path值的改变时，会引发一个PathChange事件。（2）Filename属性用于返回或设置被选定文件的文件名，设计时不可用。说明：Filename属性不包括路径名。例如：要从文件列表框（File1）中获得全路径的文件名Fname$，用下面的程序代码：IfRight(file1.path,1)=""ThenFname$=file1.path&file1.filenameElseFname$=file1.path&""&file1.fil

8、enameEndIf此条件也可改为：Len(file1.path)>3（3）Pa