Visual Basic程序设计（第二版）电子教案柳青 第7章 文件系统对象的使用.ppt

Visual Basic程序设计（第二版） 主编 柳青 严健武 中国水利水电出版社 第7章 文件系统对象的使用 File System Object（简称FSO）是VB6.0新增加对计算机文件系统的访问的对象。文件操作包括文件创建、删除、复制、移动和读写文件内容等，FSO对象包含了大部分文件（夹）操作的方法。本章内容包括： （1）文件的复制、移动、删除和读写； （2）文件夹的创建、复制、移动和删除； （3）如何取得驱动器、文件和文件信息； （4）与文件操作相关控件的使用； （5）二进制文件的读写方法。 7.1 FSO对象的使用 7.1.1 File System Object对象简介 File System Object (FSO) 对象模型是VB6.0新增加的基于对象的文件夹和文件操作工具，使用户除使用传统的 VB 语句和命令外，还可以使用具有属性、方法和事件的 object.method语法来操作文件夹和文件。 FSO 对象模型使应用程序能够创建、复制、移动和删除文件夹，或者检测是否存在指定的文件或文件夹。FSO 对象模型也可以获取关于文件或文件夹的信息，如名称、创建日期或最近修改日期等等。 在工程中使用FSO对象之前，必须在菜单栏上选择“工程→引用”选项，在弹出的“引用”对话框中选择 选项，如图7-1所示。 表7-1 FSO对象包含了以下几个子对象 2．移动文件 MoveFile 功能：将一个或多个文件从一个地方移动到另一个地方。 语法格式：MoveFile 源文件, 目标文件 说明：将[源文件]复制到[目标文件]，然后删除[源文件]。 注意： 如果[源文件]包含通配符或[目标文件]以路径分隔符（\）结尾，则认为[目标文件]指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为[目标文件]是一个要创建的目标文件名。以上任意一情况下移动一个文件时，可能出现三种情形： （1）如果[目标文件]不存在，文件得到移动。这是通常的情况。 （2）如果[目标文件]是一个已存在文件，则发生一个“文件已存在”错误。 （3）如果[目标文件]是一个存在的目录（文件夹名），则发生一个“拒绝的权限”错误。 示例： Dim Fso As New FileSystemObject Fso. MoveFile “C:\A.txt”, “D:\” ‘将C：\A.txt文件移动到D:\，如果D：\A.txt已经存在，则出现错误提示。 3．删除文件 DeleteFile 功能：删除一个指定的文件。 语法格式：DeleteFile 文件位置及文件名 [,是否强制删除] 说明：将指定的文件删除，可选参数表示是否强制删除文件。对于只读文件，如果确定要删除，将其设置为True，默认值为False。 示例： Fso.DeleteFile D:\A.txt，true 将C：\A.txt文件删除，如果文件不存在，则出现“文件未找到”的错误。 4 判断文件是否存在 FileExists 功能：执行复制、移动和删除等文件操作时，为避免运行错误，必须首先判断源文件或目标文件是否存在。 语法格式：FileExists（文件位置及文件名） 说明：指定的文件是否存在，存在则为True，否则为False。 示例： If Fso.FileExists(C:\A.txt) = True Then 执行相关操作 …… End if 5 文件夹操作 对文件夹的操作同样也有复制、移动、删除和判断文件夹是否存在。功能和语法格式与操作文件相似。例如，复制、移动和删除文件夹的方法分别为：CopyFolder、MoveFolder和DeleteFolder，操作前，也必须判断文件夹是否存在FolderExists 。 [建立工程] 新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 构造用户界面，在窗体中添加4个按钮，如图7-2所示。其中，1-Command1；2-Command2 ；3-Command3；4-Command4。 [程序代码] Dim Fso As New FileSystemObject Private Sub Command1_Click() 判断文件是否存在,存在则复制,否则提示 If Fso.FileExists(C:\A.txt) = True Then Fso.CopyFile C:\A.txt, D:\TEST\, True Else MsgBox 没有找到文件! End If End Sub Private Sub Command2_Click() 判断文