在QTP测试中,比较本地的两个文件是不是相同,需要使用VBScript的FileSystemObject对象,在此作简要的概述
一.基础FileSystemObject
1. 创建 FileSystemObject 对象 Dim fso Set fso = CreateObject(\"Scripting.FileSystemObject\") Scripting 是类型库的名字,而 FileSystemObject 则是想要创建的对象的名字。 要用 FileSystemObject (FSO) 对象模式来编程,则:使用 CreateObject 方法来创建 FileSystemObject 对象。 FSO 对象模式包含在 Scripting 类型库中,该库位于 Scrrun.dll 文件中。因而,要使用 FSO 对象模式,必须把 Scrrun.dll 放在 Web 服务器的适当系统目录中。
2. 使用方法: 访问现有驱动器、文件和文件夹 GetDrive()、GetFolder()、GetFile()、CreateFolder()、CreateFile()、CreateTextFile ()、OpenTextFile()、FolderExists(url)、DeleteFolder(url)、MoveFolder(src,to)、FileExists(url)、CopyFile()、MoveFile()、DeleteFile()、
例如: Dim fso, f1 Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f1 = fso.GetFile(\"c:\\test.txt\")
3. 访问属性: Name、Path、Size、Type、DateLastModified(上一次修改的文件时间)
二.FSO的一些特殊功能
1. GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录;Windows系统目录;Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])
2. GetTempName Method 返回一个随机产生的文件或者目录名字,用于存储临数据
3. GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。 比如,FSO.GetAbsolutePathName(\"region\") 将返回类似于下面的结果:\"c:mydocsmyfolder egion\"
4. GetExtensionName Method 返回路径中最后部分的扩展名 (比如:FSO.GetExtensionName(\"c:docs est.txt\") 将返回txt)
5. GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹 (比如:FSO.GetParentFolder (\"c:docsmydocs\") 将返回’docs’)
6. Drives Property 返回所有本地可用驱动器的集合,用于建立资源浏览器样的用户接口。