VB6中的FSO对象模型

liglgV/ VB6 中的-FSO对象模型在编程中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器 的相关信息；创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO (File System Object)对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的 工具，通过它所提供的一系列属性和方法，我们可以在应用程序中更简单、灵活地对文件系 统进行各种操作。一、FSO简介FSO对象模型包含以下几种对象：Drive对象：允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD-ROM等驱动 器的可用空间、共享名等信息。Folder对象：允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。Files对象：允许创建、删除或移动文件，并向系统查询文件的名称、路径等。TextStream对象：允许创建和读写文本文件。FileSystemObject对象：提供一整套用于驱动器、文件夹和文件操作的方法，在功能上 可以把它看作是上面几个对象的集合并且经常与它们配合使用。与该对象相关联的很多方法 重复了前面四个对象中的方法，因此我们既可以通过FileSystemObject对象来对驱动器、文 件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行 操作。FSO模型通过两种方法实现对同一对象的操作，其操作效果是相同的，提供这种冗 余功能的目的是为了实现最大的编程灵活性。FSO对象模型包含在一个称为Scripting的类型库中，此类型库位于Scrrun.dll文件中， 可从“工程”选单的“引用”对话框中选择Microsoft Scripting Runtime”项来引用此文件。创建一个FileSystemObject对象，可以通过如下两种方法来完成：1 口将一个变量声明为 FileSystemObject 对象类型：Dim fso As New FileSystemObject ； 2 口使用 CreateObject 方 法来创建：Set fso=CreateObject( Scripting.FileSystemObject)。二、对驱动器的操作亶19有道工控建或删除驱动器的操作，而只允许收集关于系统所用驱动器的信息。通过该对象的属性可以 获得下列信息：以字节表示的驱动器可用空I间(AVailabFeSpOCe或FreeSpace)；为驱动器指定 的字母号(DriveLetter)；驱动器类型(DriveType)；驱动器使用的文件系统类型，诸如FAT、 FAT32、NTFS等(FileSystem)；驱动器是否可用(IsReady)；驱动器的路径或根文件夹(Path和 RootFolder)；驱动器序列号(SerialNumber)；共享名或卷标名(ShareName 和 VOlumeName)； 以字节表示的驱动器总空间(TotalSize)。下面一例说明了如何收集有关驱动器的信息：Private Sub Command!一Click()Dim fso As New FileSystemObject, drv As Drive, str As StringSet drv=fso.GetDrive(fso.GetDriveName( c:)Debug.Print Total Space: & FormatNumber(drv.TotalSize / 1024, 0) & KbDebug.Print Free Space: & FormatNumber(drv.FreeSpace / 1024, 0) & KbEnd Sub三、对文件夹的操作Folder对象允许通过所提供的方法来复制(Copy)、删除(Delete)或移动(Move)文 件夹，并通过其属性向系统查询其名称(Name)、路径(Path)以及创建日期(DateCreated) 等。FileSystemObject对象对文件夹的操作方法有创建(CreateFolder)、复制(CopyFolder)、 移动(MoveFolder)和删除(DeleteFolder)。在进行上述操作之前，首先要获得该文件夹的 访问句柄(GetFolder)。下例说明了如何对文件夹进行操作：Private Sub Command2一Click()Dim fso As New FileSystemObject, fldr As FolderSet fldr=fso.GetFolder( c:)获得当前文件夹的访问句柄Debug.Print Parent folder name is: & fldr打印文件夹名Debug.Print Contained on drive & fldr.Drive打印驱动器名fso.CreateFolder 提唧耐 .-，用FileSystemObject对象创建一个新的文件夹fso.DeleteFolder ( c:Temp)删除新建的文件夹End Sub访问一个对象，要首先用“Get”方法获得该对象的访问句柄，但如果是用“ Create” 函数新创建一个对象，函数会返回一个句柄到新创建的对象，这时只要设置一个变量来获 取该句柄即可，不必再用“Get”方法。如：Set fldr=fso.CreateFolder( C:Temp2)。四、对文件的操作读写文件，在VB6之前都是使用Open等语句来实现，FSO支持通过TextStream对象 来创建和读写文本文件。FSO 通过 CreateTextFil& OpenTextFile、OpenAsTextStream 三种方法来创建一个顺序 文本文件。文件创建后，就可分三步写入数据：1. 利用 FileSystemObject对象的 OpenTextFile方法或 File 对象的 OpenAsTextStream 方 法打开文本文件以备写入数据。2. 口使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 方法写入数据。3. 口使用TextStream对象的Close方法关闭文件。下例说明了如何创建文本文件：我们可使用TextStream对象的Read、ReadLine或ReadAll方法从一个文本文件中读取 数据。Private Sub Command3Click()fso.CreateTextFile c:testfile.txtA - www.D己。plcuomSet fil=fso.GetFile( c:testfile.txt)Set ts=fil.OpenAsTextStream(ForWriting)ts.Write (这是一个测试文件! )ts.CloseSet ts=fil.OpenAsTextStream(ForReading)s=ts.ReadLineMsgBox sts.CloseEnd Sub除了创建与读写文件之外，VB6还可通过FileSystemObject对象对文件进行复制 (CopyFile)、移动(MoveFile)与删除(DeleteFile)等操作，在File对象中等效的方法有 Copy、Move 和 Delete。例程如下：Private Sub Command4Click()Dim fso As New FileSystemObject, txtfile As TextStream, fil1 As File, fil2 As FileSet txtfile=fso.CreateTextFile( c:testfile.txt, True)txtfile.Write (这是一个测试文件! )txtfile.CloseSet fil1=fso.GetFile( c:testfile.txt)获得一个文件句柄fil1.Copy ( c:temp1testfile.txt)将该文件复制到temp1目录下髀有道工控fil1.Move (冬1。需2滔filePtW。F 】匚匚 口成将该文件移动到temp2目录下Set fil1=fso.GetFile( c:temp1testfile.txt)获得这些文件当前位置的句柄Set fil2=fso.GetFile( c:temp2testfile.txt) fil1.Delete fil2.DeleteEnd Sub by