QTP中对QC附件操作的几个函数(2)

上一篇 / 下一篇  2012-07-03 18:30:40 / 个人分类：QTP

查看( 170 ) / 评论( 0 ) / 评分( 0 / 0 )
  1. End If  
  2. End Function  
  3.   
  4. '***************************************************************************************************************** 
  5. '名称：AddAttachmentOnQC  
  6. '说明：向QC服务器上的指定对象（Test、TestSet或者Defect）中添加附件  
  7. '输入：  
  8. '                                TestObject - QC上的对象：Test、TestSet或Defect  
  9. '                                FileName - 上传目标文件名（完全路径文件名，Full Path Name）  
  10. '返回：  
  11. '                                Bool类型，True代表上传附件成功，False代表上传附件失败  
  12. '示例：AddAttachmentOnQC QCUtil.CurrentTest, "d:/temp/data_file_attached.xls"  
  13. '设计人员：LYH  
  14. '设计时间：08/10/23  
  15. '***************************************************************************************************************** 
  16. Public Function AddAttachmentOnQC(TestObject, FileName)  
  17.    On Error Resume Next  
  18.   
  19.    '初始化函数返回值  
  20.    AddAttachmentOnQC = False  
  21.   
  22.    '通过AddItem(Null)方法取得Attachment对象  
  23.         Set AttachmentFactory = TestObject.Attachments  
  24.         Set Attachment = AttachmentFactory.AddItem(Null)  
  25.           
  26.         '上传文件并更新  
  27.         Attachment.FileName = FileName  
  28.         Attachment.Type = 1  
  29.         Attachment.Post  
  30.         Attachment.Refresh  
  31.         AddAttachmentOnQC = True  
  32.   
  33.         '错误情况处理  
  34.         If Err.Number <> 0 Then  
  35.                 Err.Clear  
  36.                 GetAttachmentOnQC = False  
  37.                 On Error GoTo 0  
  38.         End If          
  39. End Function  
  40.   
  41. '***************************************************************************************************************** 
  42. '名称：ReplaceAttachmentOnQC  
  43. '说明：替换QC服务器上指定对象（Test、TestSet或者Defect）的附件  
  44. '输入：  
  45. '                                TestObject - QC上的对象：Test、TestSet或Defect  
  46. '                                OldFileName - 待删除文件名  
  47. '                                NewFileName - 待上传文件名（完全路径文件名，Full Path Name）  
  48. '返回：  
  49. '                                Bool类型，True代表替换附件成功，False代表替换附件失败  
  50. '示例：ReplaceAttachmentOnQC QCUtil.CurrentTest, "data_file_attached.xls", "d:/temp/data_file_attached.xls"  
  51. '设计人员：LYH  
  52. '设计时间：08/10/23  
  53. '***************************************************************************************************************** 
  54. Public Function ReplaceAttachmentOnQC(TestObject, OldFileName, NewFileName)  
  55.    On Error Resume

收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar