UFT基本框架搭建

UFT基本框架搭建

框架基本体系结构如下，

文件名	目的
test	工程名
commonlib	存放自定义函数
testcase	存放测试用例
testlog	存放日志
testobject	存放对象
testpic	存放截图
testscript	存放测试脚本

代码

'------------------------1.目录生成------------------------
Dim testpath
testpath=environment.Value("TestDir")	'获取当前目录
testpaths=split(testpath,"testscript")	'当前文件已存在D:\Codinglib\test\testscript目录下，所以用testscript来分割得到上级目录
'msgbox testpaths(0)
executefile testpaths(0)&"commonlib\genfolder.vbs"
genfolder testpaths(0)&"testlog"
genfolder testpaths(0)&"testpic"


'------------------------2.测试用例加载-判断测试用例是否存在------------------------
Dim fso
Dim blccaseexist
Dim casepath
casepath=testpaths(0)&"testcase\testcase.xlsx"
Set fso=createobject("scripting.filesystemobject")
blcaseexist=fso.FileExists(casepath)
If blcaseexist Then
	datatable.ImportSheet casepath,"Template","Action1"
else
	reporter.ReportEvent micFail,"Template Test"