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