'*************************************************************'
'函数/过程名称:GetTestPath
'函数/过程的目的:取得测试脚本的目录
'返回值:测试脚本的目录
'*************************************************************'
Function GetTestPath()
GetTestPath=left(environment.Value("ppath"),Instr(1, environment.Value("ppath"), "测试脚本", 0)-1)
End Function