qc 二次开发用 VBScript 下载附件

原创于 2011-01-04 17:44:09 发布 · 149 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#VBScript #F#

本文提供了一个使用 QualityCenter (QC) API 的示例脚本，展示了如何通过 TDApiOle80 对象模型连接 QC 服务器，获取指定缺陷的附件，并将其下载到本地路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


On Error Resume Next
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
tdconnction.ConnectProjectEx "DEFAULT","QualityCenter_Demo","alex_qc",""
Set BugFact = tdconnction.BugFactory
'根据ID返回需要的附件
Set bugObj = BugFact.Item(21)
Set attachFact = bugObj.Attachments
Set attachList = attachFact.NewList("")
Set attachObj = attachList.Item(1)
Set AttachmentStorage = attachObj.AttachmentStorage
'下载到地址
AttachmentStorage.ClientPath="F:\a\"
AttachmentStorage.Load attachObj.Name,True
if Err=0 Then
wscript.echo "true"
else
wscript.echo "false"
End If
'wscript.echo "结束"