您的位置:首页 > 编程语言 > Qt开发

QTP的tsr对象库文件转换成XML

2012-08-01 12:46 225 查看
Function exportTsrToXml(tsrFilePath,xmlFilePath)
Dim autoRepository

Set autoRepository = CreateObject("Mercury.ObjectRepositoryUtil") '创建ORAOM对象

If Not fso.FileExists(tsrFilePath) Then '如果tsr文件不存在
MsgBox "Error:Missed the ObjectRepository file !",48,"Export tsr to xls"
WScript.Quit
Else'否则导出为xml文件
autoRepository.ExportToXML "H:\Repository\2Obj_2d.tsr",xmlFilePath
Set autoRepository = Nothing
End If
End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: