QTP中FSO象应用.docxVIP

QTP中FSO对象应用 FSO：File System Object（文本文件系统对象） FSO是一个可以对系统文件进行操作的COM组件。对于自动化测试来说，FSO组件可以帮助我们方便快捷地解决文件处理上的问题。最常见的比如写测试日志，测试报告，上传具有一定规范格式的文本文件，构建测试文件夹结构，以及导出某个文本文件等各方面操作与应用。对于这些问题都可以用FSO对象来完成。 注释：COM对象:The Component Object Model 组件对象模型 COM组件是遵循COM规范编写、以Win32动态链接库（DLL）或 HYPERLINK /view/159830.htm \t _blank 可执行文件（EXE）形式发布的可执行 HYPERLINK /view/2418160.htm \t _blank 二进制代码，能够满足对组件架构的所有需求。 FSO对象模型主要由以下四个对象组成，主对象为FileSystemObject。Drive对象用的比较少。 FileSystemObject Object： 文件系??对象，操作计算机的文件系统。 Folder Object： 文件夹系统对象，提供存取文件夹的属性及操作。 TextStream Object： 文本流对象，提供存取文件内容。 Drive Object： 驱动器对象，管理和操作磁盘。 截图里就是FileSystemObject的所有属性跟对象。 下面简单列举文件夹操作，包括文件夹的增删拷贝。 Set?fso?=?CreateObject(scripting.filesystemobject)folderPath?=?d:\sunyufolderBak?=?f:\bakIf?fso.FolderExists(folderPath)?Then????If?fso.FolderExists(folderBak)?Then????????fso.DeleteFolder?folderBak??如果备份文件夹已经存在了，则删除????End?If?????fso.CopyFolder?folderPath,folderBak?删除sunyu这个文件夹前我们在f????????????????????????????????????????盘里做个备份，改名为bak????fso.DeleteFolder?folderPath??如果文件夹已存在则删除End?IfSet?myFolder?=?fso.CreateFolder(folderPath)在D盘创建一个叫sunyu的文件夹Set?fso?=?Nothing 下面来尝试创建一个目录结构，并获取父文件夹下所有子文件夹的名称。 这是目标结构，主文件夹为sunyu，下面有三个文件夹 Set?fso?=?CreateObject(scripting.filesystemobject)folderPath?=?d:\sunyuIf?fso.FolderExists(folderPath)?Then????fso.DeleteFolder?folderPath??如果文件夹已存在则删除End?IfSet?myFolder?=?fso.CreateFolder(folderPath)在D盘创建一个叫sunyu的文件夹fso.CreateFolder?folderPath?+?\1fso.CreateFolder?folderPath?+?\2fso.CreateFolder?folderPath?+?\3取子文件件名方式一Set?subFolders?=?fso.GetFolder(d:\).SubFolders.Item(sunyu).SubFoldersFor?Each?f?In?subFolders????MsgBox?f.NameNext取子文件件名方式二Set?subFolders?=?myFolder.SubFoldersFor?Each?f?In?subFolders????MsgBox?f.Name????MsgBox?f.ParentFolder.Name??获得父文件夹名NextSet?fso?=?Nothing 为了让脚本可以重复执行，我首先会删除之前建立的文件夹。两种取子文件夹的方式都是比较常用的，我就写在了一个程序里。 下面我来列举文本文件的操作方式，主要包括三种模式 Const?ForAppending?=?8?从文件末端开始继续写入Const?ForReading?=?1?读取模式Const?ForWriting?=?2?写入模式Set?fso?=?CreateObject(scripting.filesystemob