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

上一篇 / 下一篇  2012-07-03 18:27:46 / 个人分类:QTP

  1. '***************************************************************************************************************** 
  2. '名称:GetAttachmentFromQC  
  3. '说明:从QC服务器上的指定对象(Test、TestSet或者Defect)中找到指定名称的附件,下载到指定目录  
  4. '输入:  
  5. '                                TestObject - QC上的对象:Test、TestSet或Defect  
  6. '                                FileName - 下载目标文件名(附件)  
  7. '                                DstFolder - 下载目标文件夹  
  8. '返回:  
  9. '                                Bool类型,True代表取附件成功,False代表取附件失败  
  10. '示例:GetAttachmentOnQC QCUtil.CurrentTest, "data_file_attached.xls", "d:/temp"  
  11. '设计人员:LYH  
  12. '设计时间:08/10/23  
  13. '***************************************************************************************************************** 
  14. Public Function GetAttachmentOnQC(TestObject, FileName, DstFolder)  
  15.    On Error Resume Next  
  16.    '初始化函数返回值  
  17.    GetAttachmentOnQC = False  
  18.   
  19.    '为DstFolder变量添加路径斜杠"/"  
  20.    If Right(DstFolder, 1) <> "/" Then  
  21.            DstFolder = DstFolder & "/"  
  22.    End If  
  23.      
  24.    '取得AttachmentList对象,即TestObject的所有附件  
  25.         Set AttachmentFactory = TestObject.Attachments  
  26.         Set AttachmentList = AttachmentFactory.NewList("SELECT * FROM CROS_REF")  
  27.           
  28.         '先删除本地的文件.  
  29.         Set fso = CreateObject("Scripting.FileSystemObject")  
  30.         If fso.FileExists(DstFolder & Filename) then  
  31.                 fso.DeleteFile DstFolder & Filename   '删除文件  
  32.         End if  
  33.         Set fso = Nothing  
  34.           
  35.         '遍历TestObject对象的所有附件,找到名称为FileName的附件。附件  
  36.         For Each Attachment in AttachmentList  
  37.                 If InStr(1,Attachment.Name, FileName, 1) >= 1 Then  
  38.                         Set AttachmentStorage = Attachment.AttachmentStorage  
  39.                         AttachmentStorage.ClientPath=DstFolder  
  40.                         AttachmentStorage.Load Attachment.Name,True  
  41.             '下载后重命名,去掉QC附件前缀。类似Test_#_Filename  
  42.                         RenameFile DstFolder & Attachment.Name, DstFolder & Filename  
  43.                         GetAttachmentOnQC = True  
  44.             Exit Function  
  45.                 End If  
  46.         Next  
  47.   
  48.         '错误情况处理  
  49.         If Err.Number <> 0 Then  
  50.                 Err.Clear  
  51.                 GetAttachmentOnQC = False  
  52.                 On Error 

TAG:

 

评分:0

我来说两句

Open Toolbar