Visual Basic可视化程序设计教程电子教案 第11章文件系统.pptVIP

第11章 文件系统 顺序、随机文件创建、存取及应用。 随机文件创建、存取及应用 文件系统对象（FSO）及应用 11.1 文件概述 文件是存储在外部介质（如磁盘）上的以文件名标识的数据的集合。存储在磁盘上的文件称为磁盘文件，与计算机相连的设备称为设备文件。这些文件都不在计算机内，统称为外部文件。为访问存放在外部介质上的数据，应先按文件名找到所指定的文件，然后再从该文件中读取数据。 文件是数据的集合， VB的文件由记录组成，记录由字段组成，一组相关的字段就组成一条记录。 11.1.1文件的分类 11.1.2文件操作（读写）的步骤 11.2 顺序文件 11.2. 1 创建新的顺序文件 11.2. 2 向顺序文件添加数据 11.2. 3 从已存在的顺序文件中读取数据 11.3 随机文件 11.4与文件操作有关的函数 11.5 文件系统对象 11.5.2 文件系统对象的应用 文件系统对象的引用 2．管理驱动器 管理文件夹 应用举例 使用FSO对象模型对文件夹的管理包括文件夹的创建、复制、移动、删除以及获取与文件夹有关的信息。FileSystenObject对象和Folder对象都能完成对文件夹的管理工作，但使用Folder对象的属性还可以获取文件夹的有关信息。 属性 属性描述 Attributes 设置或返回文件夹的属性（如：1为只读） DateLastModified 返回最后一次修改文件夹的日期和时间 DateLastAccessed 返回最后一次访问文件夹的日期和时间 DateCreated 返回指定文件夹的创建日期和时间 Drive 返回指定文件夹所在的驱动器符号 Files 返回文件夹中包含的文件的集合 Name 设置或返回指定文件夹的名称 Size 返回以字节为单位的包含在文件夹中所有文件和子文件夹的大小 ParentFolder 返回父文件夹的名称 Path 返回文件夹的路径名 SubFolders 返回包含在文件夹中的子文件夹的集合 Folder对象的主要属性 功能 FileSystemObject方法 Folder方法 创建一个文件夹 CreateFolder ? 删除一个文件夹 DeleteFolder Delete 移动一个文件夹 MoveFolder Move 复制一个文件夹 CopyFolder Copy 获得当前文件夹的完整路径名称 GetAbsolutePathName ? 查找一个文件夹是否存在 FolderExists ? 获得已有Folder对象的一个实例 GetFolder ? 找出一个文件夹的父文件夹的名称 GetParentFolderName ? 管理文件夹的部分方法 （1）文件夹的创建 使用FileSystemObject对象的CreatFolder方法可以创建文件夹。 【例11.6】在C盘上建立两个文件夹“Apple”和“Orange”，可以通过下列程序段来实现： Dim fso Set fso =CreateObject（“Scripting.FileSystemObject”） Fso.CreatFolder（“C：\Apple”） Fso.CreatFolder（“C：\Orange”） 注意，如果要创建的文件夹已经存在，则此语句会出错，所以编写程序时应先判断要创建的文件夹是否已经存在，然后再操作。 （2）文件夹的复制、移动和删除 文件夹的复制、移动和删除分别可以用两种方法实现。 【例11.7】将上例中创建的文件夹Orange复制到文件夹Apple下，用两种方法实现。 方法一：使用FileSystemObject对象的方法 Dim fso Set fso = CreateObject（“Scripting.FileSystemObject”） fso.CopyFolder “ C：\Orange ” , “ C：\Apple\ ” 方法二：使用Folder对象的方法 Dim fso , fld Set fso = CreateObject（“Scripting.FileSystemObject”） Set fld = fso.GetFolder（“C:\orange”） fld.copy “ C：\apple\ ” （3）获取与文件夹有关的信息 FileSystemObject对象和folder对象配合使用可以获取关于文件夹的全部信息。编写程序时，通过对FileSystemObject对象使用适当的方法（GetFolder方法、CreatFolder方法），建立一个Folder对象的实例，再调用Folder对象的属性