《平差程序设计第一篇B.ppt》由会员分享，可在线阅读，更多相关《平差程序设计第一篇B.ppt（26页珍藏版）》请在三一文库上搜索。
1、文件系统对象方法,1、文件系统对象方法 通过FSO(File System Object)对象，使用带有一整套属性、方法和事件的面向对象语法来处理驱动器、文件夹和文件，使VB成为了完全的面向对象程序设计语言。 FSO对象实际上是系统所提供的类模块，其应用方法与类模块相同。,文件系统对象方法,2、FSO对象成员： Drive：允许收集驱动器信息，如可用空间、其共享名称等。 Folder:允许创建、删除或移动文件夹，并向系统查询文件夹的名称，路径等。 File:允许创建、删除或移动文件，并向系统查询文件的名称，路径等。,文件系统对象方法,FileSystemobject：该组的主要对象，提供了一套
2、用于创建、删除、收集相关信息，以及通用的操作驱动器、文件夹和文件的方法。 TextStream：允许读和写文本文件。,文件系统对象方法,FSO成员中，除FileSystemObject外，其余的4都是具体的类型，其应用方法作为对象型变量，将具体的对象赋值与它后加以引用，而FileSystemObject主要用于获取具体对象的句柄，创立文件夹、文件、删除移动文件夹、文件等操作，不涉及具体的对象，所以使用时不赋值。,文件系统对象方法 3、 FSO对象引用 FSO对象不是标准VB对象，需要引用才能应用其属性和方法。引用方法是从“工程”菜单的“引用”对话框选择“Microsoft Scripting
3、Runtime”项。,测量平差程序设计,文件系统对象方法,4、使用文件系统对象编程 （1）、创建FSO对象：FSO对象作为一个类，使用前必须创建一个FSO对象实体，然后才能使用其方法、属性来管理驱动器、文件夹、文件等对象。,文件系统对象方法,由于FSO对象不是控件（不可视），所以创建一个FSO对象实体的方法是声明一个对象型的变量，然后对其赋值。,文件系统对象方法,（2）、对象型变量的声明 声明对象型变量的方法为：Dim As 。 Dim fso As New FileSystemObject Dim drv As Drive,文件系统对象方法,（3）对象型变量的赋值 对象型变量保存的是某个对象
4、的引用，即对象在内存中的地址，也称为句柄。对象型变量赋值，必须用Set关键字。一经赋值，则对对象型变量的操作,等同于对它所引用对象的操作。,文件系统对象方法,（4）、FSO对象操作驱动器的方法 访问已有的驱动器，可使用FileSystemObject对象中相应的“Get” 方法，首先声明对象型变量： Dim fso As New FileSystemObject, drv As Drive,文件系统对象方法,Set drv = fso.GetDrive(描述驱动器的字符串) 获得指定驱动器的内存地址，并赋给驱动器型变量drv,文件系统对象方法,FSO对象允许系统获得驱动器的各种信息，诸如：To
5、talSize、 FreeSpace 、DriveLetter、 Drivetype、 SerialNumber 、FileSystem 、IsReady、ShareName/VolumeName等属性，语法为.属性，例如： .print drv.TotalSize s=drv.FreeSpace.,文件系统对象方法,(5)、FSO对象操作文件夹的方法 A、创建、删除、移动和复制(小写fso表示一个已声明的FileSystemObject类型的变量，fld表示一个已赋值的文件夹型的变量。,文件系统对象方法,fso.CreateFolder（“描述文家夹名和路径的字符串”） fld.delete
6、/fso.deletefolder(“描述文家夹名和路径的字符串”）,文件系统对象方法,fld.move（“描述目的地的字符串”）/fso.movefolder（“描述要移动的文件夹及目的地的字符串”） fld.copy/fso.copyfolder（“描述要复制文件夹的字符串”）,文件系统对象方法,B、文件夹定位： fso.FolderExists(“描述包括路径的文件夹名的字符串”或对象型变量) 检查文件夹是否存在，对象型变量已赋值。,文件系统对象方法,fso. GetAbsolutePathName(“文件夹名”或对象型变量) 获得当前文件夹的父文件夹名 fso.GetSpecialFo
7、lder(“文件夹名”或对象型变量) 获得系统文件夹名,文件系统对象方法,（6）、 FSO对象操作文件的方法： 设文件型变量Fil已被赋值，现在是一文件句柄，fso已声明为FileSystemObject型变量，则移动、复制、删除文件的方法为：,文件系统对象方法,移动一个文件： Fil.move/fso.MoveFile(string) 复制一个文件：Fil.copy/fso.CopyFile(string) 删除一个文件：Fil.delete/fso.DeleteFile(string),文件系统对象方法,（7）、FSO对象操作顺序文本文件的方法： 使用FSO对象模型创建的Textstrea
8、m对象属于顺序性文本文件。对象所具有的属性和方法，可使文件的打开、关闭、读出和写入非常方便。,文件系统对象方法,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.WriteLi
9、ne,文件系统对象方法,添加一个空行 ts.WriteBlankLine 关闭文件 ts.Close 读取指定数量的字符 ts.Read(expN),文件系统对象方法,读取一整行（紧跟，但不包括换行符）ts.ReadLine 读取文本文件中所有内容 ts.ReadAll,文件系统对象方法,TextStream 对象的Write、 WriteLine方法的区别是后者在指定的字符串末尾加换行符。 使用Read、ReadLine方法产生的文本被存储在一个字符串中，若要跳过数据的某些部分，可使用Skip或SkipLine方法。,文件系统对象方法,（8）小结： FSO对象5个成员除FileSystemObject外，其余的4个都是具体的对象类型，应用中均是作为对象型变量，赋予具体对象的句柄后加以引用。而FileSystemObject主要用于获取具体对象的句柄，创立文件夹、文件、删除移动文件夹、文件等操作，不涉及具体的对象，所以使用时不赋值。,