????QTP?г?????AOM???????????????????? ??????????????? QTP ???????????? ???QTP????????????? ORAOM???????????????????????????? ???μ??????? ???????? ???? xml ???
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''??? : ???????????XML???????
' sourceFile  :   ?????tsr ?????·??
' targetFilePath : ???xml??·??
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ExportToXML (sourceFile?? targetFilePath)
Dim  objectRepository
Set objectRepository =  CreateObject("Mercury.ObjectRepositoryUtil")
objectRepository.ExportToXML sourceFile?? targetFilePath
set objectRepository = nothing
End Function
filePath = "c:or est2.tsr"
targetFilePath = "c:oryy1.xml"
ExportToXML  filePath ??targetFilePath