2012年8月1日

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

摘要： 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 xl 阅读全文

posted @ 2012-08-01 12:46 张飞_ 阅读(1091) 评论(1) 推荐(0)

导航