文件系统对象的使用.

《文件系统对象的使用.》由会员分享，可在线阅读，更多相关《文件系统对象的使用.（43页珍藏版）》请在金锄头文库上搜索。

1、Visual Basic程序设计（第二版 ） 主编主编 柳青柳青 严健武严健武 中国水利水电出版社中国水利水电出版社 第7章 文件系统对象的使用 File System Object（简称FSO）是VB6.0新增加对计算机文件系统 的访问的对象。文件操作包括文件创建、删除、复制、移动和读写 文件内容等，FSO对象包含了大部分文件（夹）操作的方法。本章 内容包括： （1）文件的复制、移动、删除和读写； （2）文件夹的创建、复制、移动和删除； （3）如何取得驱动器、文件和文件信息； （4）与文件操作相关控件的使用； （5）二进制文件的读写方法。 7.1 FSO对象的使用 u7.1.1 File S

2、ystem Object对象简介 uFile System Object (FSO) 对象模型是VB6.0新增加的基于对象的 文件夹和文件操作工具，使用户除使用传统的 VB 语句和命令外 ，还可以使用具有属性、方法和事件的 object.method语法来操作 文件夹和文件。 uFSO 对象模型使应用程序能够创建、复制、移动和删除文件夹， 或者检测是否存在指定的文件或文件夹。FSO 对象模型也可以获 取关于文件或文件夹的信息，如名称、创建日期或最近修改日期 等等。 u在工程中使用FSO对象之前，必须在菜单栏上选择“工程引用” 选项，在弹出的“引用”对话框中选择 u选项，如图7-1所示。 图7-

3、1 “引用”对话框 外部对象的使用与外部控件相似，可以认为引用的外部对象是没有界面的外部控件。外部对象的使用与外部控件相似，可以认为引用的外部对象是没有界面的外部控件。 在工程中添加引用对象后，开发环境没有任何的外观改变。如果需要使用在工程中添加引用对象后，开发环境没有任何的外观改变。如果需要使用FSOFSO对象提供对象提供 的方法，必须先用代码创建该对象。的方法，必须先用代码创建该对象。 创建创建FSO FSO 对象的代码：对象的代码：Dim Dim FsoFso As New As New FileSystemObjectFileSystemObject 或：或：Set Set fsofs

4、o = = CreateObject(“Scripting.FileSystemObjectCreateObject(“Scripting.FileSystemObject“)“) 以上代码均可创建以上代码均可创建FsoFso对象，对象，VBVB中常用第中常用第1 1种写法。种写法。 FSOFSO对象包含的子对象见表对象包含的子对象见表7-17-1。 表7-1 FSO对象包含了以下几个子对象 对象描述 Drive允许收集关于系统所用的驱动 器的信息，诸如驱动 器有多少可用空间， 其共享名称是什么，等等。请注意，一个“驱动 器”并不一定是一个硬盘 。它可以是 CD-ROM 驱动 器、一个RAM

5、盘等等。而且，驱动 器不一定 是和系统物理地连接；也可以通过一个 LAN进行逻辑 地连接。 Folder允许创 建、删除或移动文件夹，并向系统查询 文件夹的名称、路径等。 Files允许创 建、删除或移动文件，并向系统查询 文件的名称、路径等。 TextStream允许您读和写文本文件。 7.1.2 7.1.2 用用FSOFSO对象操作文件与文件夹对象操作文件与文件夹 例例7-1 7-1 文件与文件夹操作的演示案例。文件与文件夹操作的演示案例。 分析分析 FSOFSO对象包含几个操作文件与文件的方法：对象包含几个操作文件与文件的方法： 1 1文件复制文件复制 CopyFileCopyFile

6、功能：把一个或多个文件从一个地方复制到另一个地方。功能：把一个或多个文件从一个地方复制到另一个地方。 语法格式：语法格式：CopyFileCopyFile 源文件源文件, ,目标文件目标文件,是否覆盖是否覆盖 说明：将说明：将 源文件源文件 复制为复制为 目标文件目标文件 ，可选参数，可选参数, , 是否覆盖是否覆盖 默认值得为默认值得为TrueTrue （即如果目标文件已存在，则覆盖）。（即如果目标文件已存在，则覆盖）。 示例：示例： Dim Dim FsoFso As New As New FileSystemObjectFileSystemObject Fso.CopyFileFso.C

7、opyFile “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文件夹文件

8、夹 u2移动文件 MoveFile u功能：将一个或多个文件从一个地方移动到另一个地方。 u语法格式：MoveFile 源文件, 目标文件 u说明：将源文件复制到目标文件，然后删除源文件。 u注意： u如果源文件包含通配符或目标文件以路径分隔符（）结尾，则认为目标文 件指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为目 标文件是一个要创建的目标文件名。以上任意一情况下移动一个文件时，可能出 现三种情形： u（1）如果目标文件不存在，文件得到移动。这是通常的情况。 u（2）如果目标文件是一个已存在文件，则发生一个“文件已存在”错误。 u（3）如果目标文件是一个存在的目录（文件夹名

9、），则发生一个“拒绝的权限 ”错误。 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

10、.txt文件删除，如果文件不存在， 则出现“文件未找到”的错误。 u4 判断文件是否存在 FileExists u功能：执行复制、移动和删除等文件操作时，为避免运行错误，必须首先判断源 文件或目标文件是否存在。 u语法格式：FileExists（文件位置及文件名） u说明：指定的文件是否存在，存在则为True，否则为False。 u示例： uIf Fso.FileExists(“C:A.txt“) = True Then 执行相关操作 u uEnd if u5 文件夹操作 u对文件夹的操作同样也有复制、移动、删除和判断文件夹是否存在。功能和语法 格式与操作文件相似。例如，复制、移动和删除文件夹

11、的方法分别为： 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 判断文件是否存在,存在则复制,否

12、则提示 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

13、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

14、 将显示所有文件主名包含 三个字符且扩展名为 .txt 的文件。 u文件列表框的属性也提供当前选定文件的属性（Archive、Normal、System、 Hidden 和 ReadOnly）。可以在文件列表框中用这些属性指定要显示的文件类型 。System和Hidden属性的默认值为False。Normal、Archive 和 ReadOnly 属性 的默认值为 True。Normal=True时，将显示无System或Hidden属性的文件。当 Normal = False 时，仍然可显示具有ReadOnly或Archive属性的文件，方法是将 这两个属性设置为 True。 u4. 使用文

15、件系统的控件组合 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的显示以反映新驱动器的当前目录。

16、 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 自定义打开文件对话