TA的每日心情 | 奋斗 2016-1-13 11:18 |
---|
签到天数: 2 天 连续签到: 1 天 [LV.1]测试小兵
|
ProjectDir = getParentFolderPath(Environment.Value("TestDir")) '项目所在的根目录,如"D:\project\",这个路径的末位是有一个反斜线的
TestSetExcelFile = ProjectDir&"testCases.xls" '管理所有测试用例的Excel文件的路径
testScriptFolderName =ProjectDir&"testScript" 'task脚本文件所在的根目录
testDataFolderName = ProjectDir&"testData"'测试数据文件所在的根目录
Environment("ProjectDir") = ProjectDir
Environment("TestSetExcelFile") = TestSetExcelFile
Environment("testScriptFolderName") = testScriptFolderName
Environment("testDataFolderName") = testDataFolderName
Environment("Log_Dir") = ProjectDir&"logs"
SET_SHEET = Environment("SET_SHEET")
TEST_SHEET = Environment("TEST_SHEET")
Function getParentFolderPath(curPath)
'输入一个路径的字符串,获得其上级目录的字符串,主要目的是根据QTP脚本所在文件夹,找到工程所在的文件夹
tempArray = split(curPath,"\")
tempStr =""
For i=LBound(tempArray) to UBound(tempArray)-1
tempStr = tempStr&tempArray(i)&"\"
Next
getParentFolderPath = tempStr
End Function
如上代码不理解
1 SET_SHEET = Environment("SET_SHEET") 这个指的啥意思,具体用法是
2 ProjectDir = getParentFolderPath(Environment.Value("TestDir"))
TestSetExcelFile = ProjectDir&"testCases.xls"
.......
Environment("ProjectDir") = ProjectDir
Environment("TestSetExcelFile") = TestSetExcelFile
已经获取 ProjectDir的值为什么还要在给执行这个Environment("ProjectDir") = ProjectDir
麻烦各位高手指点下
|
|