《Visual Basic程序设计（第二版）-电子教案-柳青 第7章 文件系统对象的使用》由会员分享，可在线阅读，更多相关《Visual Basic程序设计（第二版）-电子教案-柳青 第7章 文件系统对象的使用（43页珍藏版）》请在金锄头文库上搜索。
1、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
2、 System Object (FSO) 对象模型是VB6.0新增加的基于对象的文件夹和文件操作工具，使用户除使用传统的 VB 语句和命令外，还可以使用具有属性、方法和事件的 object.method语法来操作文件夹和文件。 FSO 对象模型使应用程序能够创建、复制、移动和删除文件夹，或者检测是否存在指定的文件或文件夹。FSO 对象模型也可以获取关于文件或文件夹的信息，如名称、创建日期或最近修改日期等等。 在工程中使用FSO对象之前，必须在菜单栏上选择“工程引用”选项，在弹出的“引用”对话框中选择 选项，如图7-1所示。,图7-1 “引用”对话框,外部对象的使用与外部控件相似，可以认为引用的
3、外部对象是没有界面的外部控件。在工程中添加引用对象后，开发环境没有任何的外观改变。如果需要使用FSO对象提供的方法，必须先用代码创建该对象。 创建FSO 对象的代码：Dim Fso As New FileSystemObject 或：Set fso = CreateObject(“Scripting.FileSystemObject“) 以上代码均可创建Fso对象，VB中常用第1种写法。 FSO对象包含的子对象见表7-1。,表7-1 FSO对象包含了以下几个子对象,7.1.2 用FSO对象操作文件与文件夹 例7-1 文件与文件夹操作的演示案例。 分析 FSO对象包含几个操作文件与文件的方法：
4、1文件复制 CopyFile 功能：把一个或多个文件从一个地方复制到另一个地方。 语法格式：CopyFile 源文件,目标文件,是否覆盖 说明：将源文件复制为目标文件，可选参数, 是否覆盖默认值得为True （即如果目标文件已存在，则覆盖）。,示例： Dim Fso As New FileSystemObject Fso.CopyFile “C:A.txt“, “D:“ 将C:A.txt文件复制到D: Fso.CopyFile “C:A.txt“, “D:B.txt“ 将C:A.txt文件复制到D:，并改名为B.txt Fso.CopyFile “C:*.txt“, “D:TEST“ 将C:所
5、有文本文件复制到D:TEST文件夹,2移动文件 MoveFile 功能：将一个或多个文件从一个地方移动到另一个地方。 语法格式：MoveFile 源文件, 目标文件 说明：将源文件复制到目标文件，然后删除源文件。 注意： 如果源文件包含通配符或目标文件以路径分隔符（）结尾，则认为目标文件指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为目标文件是一个要创建的目标文件名。以上任意一情况下移动一个文件时，可能出现三种情形： （1）如果目标文件不存在，文件得到移动。这是通常的情况。 （2）如果目标文件是一个已存在文件，则发生一个“文件已存在”错误。 （3）如果目标文件是一个存在的目录（
6、文件夹名），则发生一个“拒绝的权限”错误。 示例： 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文件删除
7、，如果文件不存在，则出现“文件未找到”的错误。,4 判断文件是否存在 FileExists 功能：执行复制、移动和删除等文件操作时，为避免运行错误，必须首先判断源文件或目标文件是否存在。 语法格式：FileExists（文件位置及文件名） 说明：指定的文件是否存在，存在则为True，否则为False。 示例： If Fso.FileExists(“C:A.txt“) = True Then 执行相关操作 End if 5 文件夹操作 对文件夹的操作同样也有复制、移动、删除和判断文件夹是否存在。功能和语法格式与操作文件相似。例如，复制、移动和删除文件夹的方法分别为：CopyFolder、Move
8、Folder和DeleteFolder，操作前，也必须判断文件夹是否存在FolderExists 。 建立工程 新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 构造用户界面，在窗体中添加4个按钮，如图7-2所示。其中，1-Command1；2-Command2 ；3-Command3；4-Command4。,图7-2 操作文件及文件夹的界面布局,程序代码 Dim Fso As New FileSystemObject Private Sub Command1_Click() 判断文件是否存在,存在则复制,否则提示 If Fso.FileExists(“C:A.txt“)
9、= True Then Fso.CopyFile “C:A.txt“, “D:TEST“, True Else MsgBox “没有找到文件!“ End If End Sub Private Sub Command2_Click() 判断文件是否存在,存在则复制,否则提示 If Fso.FolderExists(“C:abc“) = True Then Fso.CopyFolder “C:abc“, “D:TEST“, True Else MsgBox “没有找到文件!“ End If End Sub Private Sub Command3_Click() 判断文件是否存在,存在则复制,否则
10、提示 If Fso.FileExists(“C:A.txt“) = True Then If Fso.FileExists(“D:testA.txt“) = False Then Fso.MoveFile “C:A.txt“, “D:test“,Else If MsgBox(“文件已经存在?替换吗“, vbQuestion + vbYesNo, “确认“) = vbYes & _ Then 先删除,在移动 Fso.DeleteFile “d:testa.txt“, True Fso.MoveFile “C:A.txt“, “D:test“ End If End If Else MsgBox “
11、没有找到文件!“ End If End Sub Private Sub Command4_Click() If Fso.FolderExists(“D:testAbc“) = True Then Fso.DeleteFolder “D:testABC“, True End If End Sub,7.1.3 文件对象（File）的使用 例7-2 取得选择的文件相关信息并显示在标签（Label）上，运行结果如图7-3所示。 分析 文件对象File可以取得与指定文件相关的一些信息，如文件大小、文件属性、创建日期或修改日期等。,图7-3 显示文件信息,文件对象File通过FSO对象的GetFile方法
12、建立。本例演示了File对象的创建和使用。 建立工程 新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 构造用户界面，在窗体上添加两个Label控件，一个通用对话框控件和一个命令按钮，采用默认名称，界面布局如图7-4所示。,Label2,Command1,Label1,CommonDialog1,图7-4 界面布局,程序代码 1 Private Sub Command1_Click() 2 Dim Fso As New FileSystemObject 3 Dim f As File 文件类型变量 4 Dim FileName As String, tmpStr As St
13、ring 5 6 CommonDialog1.ShowOpen 7 FileName = CommonDialog1.FileName 8 9 If FileName “ Then 10 tmpStr = tmpStr & “文件名是:“ & Fso.GetFileName(FileName) & vbCrLf 11 tmpStr = tmpStr & “文件扩展名是:“ & Fso.GetExtensionName(FileName) & _ vbCrLf 12 Set f = Fso.GetFile(FileName) 建立文件操作对象File 13 14 tmpStr = tmpStr
14、& “文件所在文件是:“ & f.ParentFolder & vbCrLf 15 tmpStr = tmpStr & “文件大小是:“ & f.Size & “字节“ & vbCrLf 16 tmpStr = tmpStr & “文件建立日期:“ & f.DateCreated & vbCrLf 17 tmpStr = tmpStr & “文件修改日期:“ & f.DateLastModified & vbCrLf 18 tmpStr = tmpStr & “文件属性:“ & f.Attributes & vbCrLf 19 20 Label2.Caption = tmpStr 21 End
15、 If 22 End Sub,代码说明 行2：建立FSO对象Fso。 行3：定义File变量，准备保存用Fso对象的方法创建的File对象。 行6：打开选择文件对话框。 行7：暂时保存文件名及位置信息。 行10：FSO对象的GetFileName方法，仅仅从位置中取得文件名，不包含文件位置。 行11：FSO对象的GetExtensionName方法，可以取得文件名的扩展名。 行12：FSO对象的GetFile方法，通过指定文件绝对位置，创建文件对象File。 行1418：文件相关属性： ParentFolder属性：取得文件所在的文件位置。 Size属性：取得文件大小，单位为字节Byte，其中
16、：1KB=1024Byte；1MB=1024KB； 1GB=1024MB。 DateCreated属性：文件创建日期。 DateLastModified属性：文件最后一次修改日期。 Attributes属性：文件属性，可以设置或获取。如常规、只读、隐藏等，其值代表的含义见如表7-2。,表7-2 Attributes属性值及含义,通过文件对象的帮助，可以查看其所有属性和方法，如图7-5所示。其中，f必须定义为File类型变量方可即时查看。,图7-5 文件对象属性和方法,7.1.4 文件夹对象（Folder）的使用 例7-4 列出C盘下面所有子文件夹，运行结果如图7-6所示。,图7-6 列出子文件夹,分析 与File对象创
