文件系统对象的使用.

Visual Basic程序设计（第二版 ） 主编主编 柳青柳青 严健武严健武 中国水利水电出版社中国水利水电出版社 第7章 文件系统对象的使用 File System Object（简称FSO）是VB6.0新增加对计算机文件系统 的访问的对象。文件操作包括文件创建、删除、复制、移动和读写 文件内容等，FSO对象包含了大部分文件（夹）操作的方法。本章 内容包括： （1）文件的复制、移动、删除和读写； （2）文件夹的创建、复制、移动和删除； （3）如何取得驱动器、文件和文件信息； （4）与文件操作相关控件的使用； （5）二进制文件的读写方法。 7.1 FSO对象的使用 u7.1.1 File System Object对象简介 uFile System Object (FSO) 对象模型是VB6.0新增加的基于对象的 文件夹和文件操作工具，使用户除使用传统的 VB 语句和命令外 ，还可以使用具有属性、方法和事件的 object.method语法来操作 文件夹和文件。 uFSO 对象模型使应用程序能够创建、复制、移动和删除文件夹， 或者检测是否存在指定的文件或文件夹。FSO 对象模型也可以获 取关于文件或文件夹的信息，如名称、创建日期或最近修改日期 等等。 u在工程中使用FSO对象之前，必须在菜单栏上选择“工程引用” 选项，在弹出的“引用”对话框中选择 u选项，如图7-1所示。 图7-1 “引用”对话框 外部对象的使用与外部控件相似，可以认为引用的外部对象是没有界面的外部控件。外部对象的使用与外部控件相似，可以认为引用的外部对象是没有界面的外部控件。 在工程中添加引用对象后，开发环境没有任何的外观改变。如果需要使用在工程中添加引用对象后，开发环境没有任何的外观改变。如果需要使用FSOFSO对象提供对象提供 的方法，必须先用代码创建该对象。的方法，必须先用代码创建该对象。 创建创建FSO FSO 对象的代码：对象的代码：Dim Dim FsoFso As New As New FileSystemObjectFileSystemObject 或：或：Set Set fsofso = = CreateObject(“Scripting.FileSystemObjectCreateObject(“Scripting.FileSystemObject“)“) 以上代码均可创建以上代码均可创建FsoFso对象，对象，VBVB中常用第中常用第1 1种写法。种写法。 FSOFSO对象包含的子对象见表对象包含的子对象见表7-17-1。 表7-1 FSO对象包含了以下几个子对象 对象描述 Drive允许收集关于系统所用的驱动 器的信息，诸如驱动 器有多少可用空间， 其共享名称是什么，等等。请注意，一个“驱动 器”并不一定是一个硬盘 。它可以是 CD-ROM 驱动 器、一个RAM 盘等等。而且，驱动 器不一定 是和系统物理地连接；也可以通过一个 LAN进行逻辑 地连接。 Folder允许创 建、删除或移动文件夹，并向系统查询 文件夹的名称、路径等。 Files允许创 建、删除或移动文件，并向系统查询 文件的名称、路径等。 TextStream允许您读和写文本文件。 7.1.2 7.1.2 用用FSOFSO对象操作文件与文件夹对象操作文件与文件夹 例例7-1 7-1 文件与文件夹操作的演示案例。文件与文件夹操作的演示案例。 分析分析 FSOFSO对象包含几个操作文件与文件的方法：对象包含几个操作文件与文件的方法： 1 1文件复制文件复制 CopyFileCopyFile 功能：把一个或多个文件从一个地方复制到另一个地方。功能：把一个或多个文件从一个地方复制到另一个地方。 语法格式：语法格式：CopyFileCopyFile 源文件源文件, ,目标文件目标文件,是否覆盖是否覆盖 说明：将说明：将 源文件源文件 复制为复制为 目标文件目标文件 ，可选参数，可选参数, , 是否覆盖是否覆盖 默认值得为默认值得为TrueTrue （即如果目标文件已存在，则覆盖）。（即如果目标文件已存在，则覆盖）。 示例：示例： Dim Dim FsoFso As New As New FileSystemObjectFileSystemObject Fso.CopyFileFso.CopyFile “C: “C:A.txtA.txt“, “D:“ '“, “D:“ '将将C:C:A.txtA.txt文件复制到文件复制到 D:D: Fso.CopyFileFso.CopyFile “C: “C:A.txtA.txt“, “D:“, “D:B.txtB.txt“ '“ '将将C:C:A.txtA.txt文件复文件复 制到制到D:D:，并改名为，并改名为B.txtB.txt Fso.CopyFileFso.CopyFile “C:*.txt“, “D:TEST“ ' “C:*.txt“, “D:TEST“ '将将C:C:所有文本文件所有文本文件 复制到复制到D:TESTD:TEST文件夹文件夹 u2移动文件 MoveFile u功能：将一个或多个文件从一个地方移动到另一个地方。 u语法格式：MoveFile 源文件, 目标文件 u说明：将源文件复制到目标文件，然后删除源文件。 u注意： u如果源文件包含通配符或目标文件以路径分隔符（）结尾，则认为目标文 件指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为目 标文件是一个要创建的目标文件名。以上任意一情况下移动一个文件时，可能出 现三种情形： u（1）如果目标文件不存在，文件得到移动。这是通常的情况。 u（2）如果目标文件是一个已存在文件，则发生一个“文件已存在”错误。 u（3）如果目标文件是一个存在的目录（文件夹名），则发生一个“拒绝的权限 ”错误。 u示例： uDim Fso As New FileSystemObject uFso. MoveFile “C:A.txt”, “D:” 将C：A.txt文件移动到D:，如果D ：A.txt已经存在，则出现错误提示。 u3删除文件 DeleteFile u功能：删除一个指定的文件。 u语法格式：DeleteFile 文件位置及文件名 ,是否强制删除 u说明：将指定的文件删除，可选参数表示是否强制删除文件。对于只读文件，如 果确定要删除，将其设置为True，默认值为False。 u示例： uFso.DeleteFile “D:A.txt“，true '将C：A.txt文件删除，如果文件不存在， 则出现“文件未找到”的错误。 u4 判断文件是否存在 FileExists u功能：执行复制、移动和删除等文件操作时，为避免运行错误，必须首先判断源 文件或目标文件是否存在。 u语法格式：FileExists（文件位置及文件名） u说明：指定的文件是否存在，存在则为True，否则为False。 u示例： uIf Fso.FileExists(“C:A.txt“) = True Then '执行相关操作 u uEnd if u5 文件夹操作 u对文件夹的操作同样也有复制、移动、删除和判断文件夹是否存在。功能和语法 格式与操作文件相似。例如，复制、移动和删除文件夹的方法分别为： CopyFolder、MoveFolder和DeleteFolder，操作前，也必须判断文件夹是否存在 FolderExists 。 u建立工程 u新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 u构造用户界面，在窗体中添加4个按钮，如图7-2所示。其中，1-Command1；2- Command2 ；3-Command3；4-Command4。 图7-2 操作文件及文件夹的界面布局 u程序代码 uDim Fso As New FileSystemObject uPrivate Sub Command1_Click() u '判断文件是否存在,存在则复制,否则提示 u If Fso.FileExists(“C:A.txt“) = True Then u Fso.CopyFile “C:A.txt“, “D:TEST“, True u Else u MsgBox “没有找到文件!“ u End If uEnd Sub uPrivate Sub Command2_Click() u '判断文件是否存在,存在则复制,否则提示 u If Fso.FolderExists(“C:abc“) = True Then u Fso.CopyFolder “C:abc“, “D:TEST“, True u Else u MsgBox “没有找到文件!“ u End If uEnd Sub uPrivate Sub Command3_Click() u '判断文件是否存在,存在则复制,否则提示 u If Fso.FileExists(“C:A.txt“) = True Then u If Fso.FileExists(“D:testA.txt“) = False Then u Fso.MoveFile “C:A.txt“, “D:test“ u Else u If MsgBox(“文件已经存在?替换吗“, vbQuestion + vbYesNo, “确认 “) = vbYes *.bas“ uVisual Basic 也支持通配符“? ”。例如，?.txt 将显示所有文件主名包含 三个字符且扩展名为 .txt 的文件。 u文件列表框的属性也提供当前选定文件的属性（Archive、Normal、System、 Hidden 和 ReadOnly）。可以在文件列表框中用这些属性指定要显示的文件类型 。System和Hidden属性的默认值为False。Normal、Archive 和 ReadOnly 属性 的默认值为 True。Normal=True时，将显示无System或Hidden属性的文件。当 Normal = False 时，仍然可显示具有ReadOnly或Archive属性的文件，方法是将 这两个属性设置为 True。 u4. 使用文件系统的控件组合 u将文件系统控件进行组合，可同步显示驱动器、目录和文件的信息。对于驱动器 列表框（Drive1）、目录列表框（Dir1）和文件列表框(File1)，可以下步骤建立 控件组合： u（1）建立Drive1_Change事件，更新Drive1的显示以反映新选定的驱动器。 u即将新选定项目的（Drive1.Drive属性）赋予Dir1列表框的Path属性，程序代码 如下： uPrivate Sub Drive1_Change () u Dir1.Path = Drive1.Drive uEnd Sub u（2）在Dir1_Change事件中更新Dir1的显示以反映新驱动器的当前目录。 u即将新路径（Dir1.Path属性）赋予 File1 列表框的 File1.Path 属性，程序代码如 下： uPrivate Sub Dir1_Change () u File1.Path = Dir1.Path uEnd Sub u（3）File1.Path属性赋值语句更新File1列表框中的显示，以反映Dir1控件中的指 定的路径。单击驱动器列表框中的项目将触发Change事件。此外，当用户选定项 目并改变窗体上的焦点时，也将触发Change事件。 u7.2.2 文件系统控件应用 u例7-9 使用驱动器控件，制作如图7-12所示的文件选择对话框.。 Di r1 File1 Dirve1 图图7-12 7-12 自定义打开文件对话