平差程序设计第一篇Bppt课件

1、1 1、文件系统对象方法、文件系统对象方法通过通过FSO(File System Object)FSO(File System Object)对象，使用对象，使用带有一整套属性、方法和事件的面向对象带有一整套属性、方法和事件的面向对象语法来处理驱动器、文件夹和文件，使语法来处理驱动器、文件夹和文件，使VBVB成为了完全的面向对象程序设计语言。成为了完全的面向对象程序设计语言。FSOFSO对象实际上是系统所提供的类模块，其对象实际上是系统所提供的类模块，其应用方法与类模块相同。应用方法与类模块相同。 2、FSO对象成员： Drive：允许收集驱动器信息，如可用空间、其共享名称等。 Folder:

2、允许创建、删除或移动文件夹，并向系统查询文件夹的名称，路径等。 File:允许创建、删除或移动文件，并向系统查询文件的名称，路径等。 FileSystemobject：该组的主要对象，提供了一套用于创建、删除、收集相关信息，以及通用的操作驱动器、文件夹和文件的方法。 TextStream：允许读和写文本文件。 FSO成员中，除FileSystemObject外，其余的4都是具体的类型，其应用方法作为对象型变量，将具体的对象赋值与它后加以引用，而FileSystemObject主要用于获取具体对象的句柄，创立文件夹、文件、删除移动文件夹、文件等操作，不涉及具体的对象，所以使用时不赋值。 文件系统

3、对象方法 3、 FSO对象引用 FSO对象不是标准VB对象，需要引用才能应用其属性和方法。引用方法是从“工程菜单的“引用对话框选择“Microsoft Scripting Runtime项。4 4、使用文件系统对象编程、使用文件系统对象编程（1 1）、创建）、创建FSOFSO对象：对象：FSOFSO对象作对象作为一个类，使用前必须创建一个为一个类，使用前必须创建一个FSOFSO对象实体，然后才能使用其方对象实体，然后才能使用其方法、属性来管理驱动器、文件夹、法、属性来管理驱动器、文件夹、文件等对象。文件等对象。 由于FSO对象不是控件不可视），所以创建一个FSO对象实体的方法是声明一个对象型的

4、变量，然后对其赋值。 （2）、对象型变量的声明 声明对象型变量的方法为：Dim As 。 Dim fso As New FileSystemObject Dim drv As Drive （3对象型变量的赋值 对象型变量保存的是某个对象的引用，即对象在内存中的地址，也称为句柄。对象型变量赋值，必须用Set关键字。一经赋值，则对对象型变量的操作,等同于对它所引用对象的操作。 （4）、FSO对象操作驱动器的方法 访问已有的驱动器，可使用FileSystemObject对象中相应的“Get” 方法，首先声明对象型变量： Dim fso As New FileSystemObject, drv As

5、Drive Set drv = fso.GetDrive(描述驱动器的字符串) 获得指定驱动器的内存地址，并赋给驱动器型变量drv FSO对象允许系统获得驱动器的各种信息，诸如：TotalSize、 FreeSpace 、DriveLetter、 Drivetype、 SerialNumber 、FileSystem 、IsReady、ShareName/VolumeName等属性，语法为.属性，例如： .print drv.TotalSize s=drv.FreeSpace. (5)、FSO对象操作文件夹的方法 A、创建、删除、移动和复制(小写fso表示一个已声明的FileSystemObj

6、ect类型的变量，fld表示一个已赋值的文件夹型的变量。 fso.CreateFolder（“描述文家夹名和路径的字符串”） fld.delete/fso.deletefolder(“描述文家夹名和路径的字符串”） fld.move（“描述目的地的字符串”）/fso.movefolder（“描述要移动的文件夹及目的地的字符串”） fld.copy/fso.copyfolder（“描述要复制文件夹的字符串”） B、文件夹定位： fso.FolderExists(“描述包括路径的文件夹名的字符串或对象型变量) 检查文件夹是否存在，对象型变量已赋值。fso. GetAbsolutePathName(

7、“文件夹名或对象型变量) 获得当前文件夹的父文件夹名fso.GetSpecialFolder(“文件夹名或对象型变量) 获得系统文件夹名 （6）、 FSO对象操作文件的方法： 设文件型变量Fil已被赋值，现在是一文件句柄，fso已声明为FileSystemObject型变量，则移动、复制、删除文件的方法为： 移动一个文件： Fil.move/fso.MoveFile(string) 复制一个文件：Fil.copy/fso.CopyFile(string) 删除一个文件：Fil.delete/fso.DeleteFile(string) （7）、FSO对象操作顺序文本文件的方法： 使用FSO对象

8、模型创建的Textstream对象属于顺序性文本文件。对象所具有的属性和方法，可使文件的打开、关闭、读出和写入非常方便。 A、文件的创立 Dim fso As New FileSystemObject,ts As textstream Set ts=fso.CreatTextFile (“ c:testfile.txt”, True) 参数True允许覆盖同名文件,本句的作用是创立文本文件testfile.txt，并将句柄赋予文本文件型变量ts. B、读写文件： 打开文件 fso.OpenTextFile(String)/ts.Open 写入数据 ts.Write ts.WriteLine 添加一个空行 ts.WriteBlankLine 关闭文件 ts.Close 读取指定数量的字符 ts.Read(expN) 读取一整行紧跟，但不包括换行符ts.ReadLine 读取文本文件中所有内容 ts.ReadAll TextStream 对象的Write、 WriteLine方法的区别是后者在指定的字符串末尾加换行符。 使用Read、ReadLine方法产生的文本被存储在一个字符串中，若要跳过数据的某些部分，可使用Skip或SkipLine方法。 （8小结： FSO对象