《Visual Basic程序设计 理论篇 第二版 高职计算机应用技术专业 陈英第9章 文件处理》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 理论篇 第二版 高职计算机应用技术专业 陈英第9章 文件处理（67页珍藏版）》请在金锄头文库上搜索。
1、第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、定新驱动器，缺省时显示系统当前驱动器。 （2）在代码中用Drive 属性来设置当前驱动器。 格式：Object.Drive = “DriveName“ 其中，Object参数为驱动器列表框的名称；DriveName参数为驱动器名，如果省略则为系统当前默认驱动器。,驱动器列表框,设置驱动器有以下三种方法： （3）在代码中用ChDrive 语句设置驱动器。 格式：ChDrive “DriveName“ 其中，假设设置当前驱动器为D，可用语句Drive1.Drive = “D:” 或 ChDrive “D” 。 如果要自动地变更当前的工作驱动器，则可使用语句ChDrive Drive1.Drive。
3、,目录列表框,目录列表框（DirListBox）用于显示用户系统上的当前驱动器或指定驱动器上的目录结构，其系统默认名为Dir1。,目录列表框,目录列表框中的每一个目录都关联着一个唯一的标识符ListIndex，通过该标识符可区别目录列表框中的每一个目录。 当前指定的目录总是ListIndex 值为 1。紧邻其上的目录ListIndex 值为 2，再上一个为 ListIndex值为 3；紧邻其下的子目录中，第一个子目录ListIndex 值为 0，第二个子目录ListIndex 值为 1；依次类推。,目录列表框,设置目录有以下三种方法： （1）直接在目录列表框中选择目录，缺省时显示系统当前目录。
4、 （2）在代码中用Path 属性来设置当前目录。 格式：Object.Path = “Pathname“ 其中，Object为目录列表框的名称；PathName参数设置目录名，如果省略则为系统当前默认路径。,目录列表框,设置目录有以下三种方法： （3）在代码中用ChDir 语句设置驱动器。 格式：ChDir “Pathname“ 假设设置当前目录为C：“programe file“，可用语句Dir1.Path = “C：programe file“ 或ChDrive “C：programe file“ ；,文件列表框,文件列表框常与目录列表框配合使用，来显示指定目录下的文件列表，在文件列表框中
5、选择要操作的一个或多个文件, 其系统默认名为File1 。,文件列表框,文件列表框常用属性有： Path 属性：设置或返回在文件列表框中显示的文件路径。 Pattern 属性：设置在文件列表框中要显示的文件类型。 Archive、Normal、System、Hidden 和 ReadOnly属性：在文件列表框中指定要显示的文件类型。,文件列表框,表9-1文件类型属性功能,文件系统控件组合使用,通常驱动器列表框、目录列表框和文件列表框一起使用，在显示信息时同步。若产生此效果，需要有两个Change事件。 1.驱动器列表框的Change 事件 ，代码如下： Private Sub Drive1_C
6、hange () Dir1.Path = Drive1.Drive End Sub 2.目录列表框的Change 事件，代码如下： Private Sub Dir1_Change () File1.Path = Dir1.Path End Sub,文件系统控件组合使用,【例91】图片浏览器。,运行结果,程序代码,文件操作语句和函数,1文件操作语句 （1）MkDir 语句： 创建一个新的目录或文件夹。 格式：MkDir （2）RmDir 语句：删除一个存在的目录或文件夹。 格式：RmDir path 注意：RmDir语句只能删除空的子目录或文件夹，不能删除根目录或当前目录。 （3）Kill 语句
7、： 从磁盘中删除已关闭的文件。 格式：Killpath,文件操作语句和函数,1文件操作语句 （4）FileCopy 语句：复制一个已关闭的文件。 格式：FileCopy source, destination （5）Name 语句： 对已关闭的文件或目录重新命名。 格式：NameoldpathnameAsnewpathname,文件操作语句和函数,2文件操作函数 （1）CurDir 函数：返回指定驱动器的当前目录路径。 格式：DirName = CurDir ( drivename ) （2）GetAttr 函数：返回指定文件属性对应的整型值 格式： RetValue = GetAttr(),
8、文件操作语句和函数,表9-2 文件属性与对应整数值,文件操作语句和函数,2文件操作函数 （3）FileLen 函数：以字节为单位返回指定未打开文件的长度，类型为长整型。 格式：RetValue = FileLen () （4）Lof函数：返回指定的已打开的文件的字节长度。 格式：Length = Lof () （5）Eof函数：测试文件指针是否到了文件尾。 格式：RetValue = Eof () 若到了文件尾，则函数返回值为True；若未到文件尾，则函数返回值为False。,文件操作语句和函数,2文件操作函数 （6）Loc函数：返回上一次从打开文件中读写数据的位置。 格式：RecNo = L
9、oc () 对于顺序文件，该函数返回从文件中被打开以来读写数据块的个数，一个数据块默认长度为128字节；对于随机文件，该函数返回上一次读写记录的记录号；对于二进制文件，该函数返回上一次读写数据的最后一个字节的位置。,文件操作语句和函数,2文件操作函数 （7）Seek函数：返回已打开文件中指针的当前位置。 格式：CurRecNo =Seek () 对于顺序文件和二进制文件，该函数返回当前要读写数据的字节位置；对于随机文件，该函数返回当前要读写记录的记录号。,第9章 文件处理,9.1 文件系统控件 9.2 File System Object模型介绍 9.3 传统文件存取操作,9.2 File S
10、ystem Object模型介绍,Visual Basic 6.0的一个新功能是 File System Object (FSO) ，即文件系统对象模型。 该模型提供了一个基于对象的工具来处理文件夹和文件。这使用户除了使用传统的 Visual Basic 语句和命令之外，还可以使用所熟悉的带有一整套属性、方法和事件的 object.method 语法来处理文件夹和文件。,9.2 File System Object模型介绍,FSO对象模型包含的对象 创建和访问FSO对象 驱动器对象 文件夹对象 文件对象 用FSO对象创建文件并读写数据,FSO对象模型包含的对象,FSO 对象模型包括以下对象：
11、FileSystemObject：提供对计算机文件系统的访问，该组的主要对象提供一整套用于创建、删除、收集相关信息、以及通常的操作驱动器、文件夹和文件的方法。 Drive：对特定磁盘驱动器或网络共享的属性提供访问，收集关于系统所用的驱动器的信息。 Folder：提供对一个文件夹所有属性的访问，允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。,FSO对象模型包含的对象,FSO 对象模型包括以下对象： Files：在一个文件夹内的所有 File 对象的集合，允许创建、删除或移动文件，并向系统查询文件的名称、路径等。 TextStream：加快对文件的顺序访问，允许用户读和写文本文件。
12、,FSO对象模型包含的对象,可通过“对象浏览器”查看FSO模型中的对象、集合、属性、方法和事件的信息。,FSO对象模型包含的对象,在“工程”菜单中选择“引用”选项，打开“引用”对话框。,在“引用”对话框中，选择“Microsoft Scripting Runtime”。,在“视图”菜单中选择“对象浏览器”（或按F2）即可看到FSO对象模型的信息。,创建和访问FSO对象,FSO 对象模型编程包括三项主要任务： 使用CreateObject 方法，或将一个变量声明为 FileSystemObject 对象类型来创建一个 FileSystemObject 对象。 对新创建的对象使用适当的方法。 访问
13、该对象的属性。,创建和访问FSO对象,1通过将变量声明为 FileSystemObject 对象类型创建 FSO 对象。 在“引用”对话框中选择“Microsoft Scripting Runtime”选项，这是将变量声明为FSO对象的必要条件。 在VB的代码窗口中输入下列格式的代码： Dim As New FileSystemObject,创建和访问FSO对象,2使用 CreateObject 方法来创建一个 FileSystemObject 对象 。 格式：Set = CreateObject (“Scripting.FileSystemObject“) 其中，Scripting参数是FS
14、O文件系统对象类型库的名称。FileSystemObject参数指定要创建一个实例的对象名称。CreateObject参数有两种类型，CreateFolder创建文件夹，CreateTextFile创建文本文件。FSO对象模型不支持创建和删除驱动器。,创建和访问FSO对象,3访问 FSO 对象 访问已有的驱动器、文件夹和文件访问，分别用GetDrive、GetFolder和 GetFile方法； 而对于新建FSO对象，直接对其操作即可访问到相关信息。,驱动器对象,1驱动器对象的属性,驱动器对象,【例93】 查看所选驱动器的有关信息。,运行结果,程序代码,文件夹对象,表9-4 文件夹对象常用方法
15、,文件夹对象,表9-5 文件夹对象常用属性,文件夹对象,【例95】使用 Folder 对象获得其信息，并创建、删除文件夹。,运行结果,程序代码,文件对象,文件（File）对象提供对文件所有属性的访问。,表9-6 File对象方法,文件对象,【例96】查看所选文件的有关信息。,运行结果,程序代码,文件对象,【例97】利用FSO对象更名、删除文件。 窗体设计：在窗体上分别添加一个驱动器控件Drive1、文件夹控件Dir1和文件控件File1，然后再添加三个命令控钮，其Caption属性分别为删除、更名和退出。,文件对象,【例97】利用FSO对象更名、删除文件。,运行结果,程序代码,用FSO对象创建
16、文件并读写数据,用FSO对象创建的文件是顺序文件，它不支持创建随机文件和二进制文件； 要创建随机文件和二进制文件，应使用带Random和Binary标志的Open命令。,用FSO对象创建文件并读写数据,创建方法有三种： 1用 CreateTextFile 方法。 2用带ForWriting 标志的OpenTextFile 方法。 3用带 ForWriting 标志的 OpenAsTextStream 方法。,用FSO对象创建文件并读写数据,【例98】用FSO对象创建文件，向文件添加数据，最后关闭文件。,运行结果,程序代码,第9章 文件处理,9.1 文件系统控件 9.2 File System Object模型介绍 9.3 传统文件存取操作,9.3 传统文件存取操作,访问顺序文件 访问随机文件 访问二进制文件,访问顺序文件,1打开顺序文件 格式： Open For Input | Output | Append As Len = buffersize,Filename
