Download attachment from Quality center

 
HP Quality Center allows us to store any file as attachments. We could use this facility to store testdata, tools or anything that helps us to run a test successfully.

For example : We could store some command line tools in quality center as attachments in a folder. We could download these tools to the qtp system where we want to execute the tool. for such requirements, Try the below code to download an attachment from a testplan folder in qc.

‘Description : Returns the path of downloaded attachment
‘Example Usage :
‘ If you want to move the downloaded file to c:\ folder
‘ attpath = DownloadAttachment(“attachmentname”,”Root\D2D\Purchasing”, “TRUE”)

‘ If you DO NOT want to move the downloaded file to c:\ folder
‘ attpath = DownloadAttachment(“attachmentname”,”Root\D2D\Purchasing”, “FALSE”)

‘==================================================================================

Public Function DownloadAttachment(TDAttachmentName, TDFolderPath, bMovetoRoot)

Dim otaAttachmentFactory ‘As TDAPIOLELib.AttachmentFactory
Dim otaAttachment ‘As TDAPIOLELib.Attachment
Dim otaAttachmentList ‘As TDAPIOLELib.List
Dim otaAttachmentFilter ‘As TDAPIOLELib.TDFilter
Dim otaTreeManager ‘As TDAPIOLELib.TreeManager
Dim otaSysTreeNode ‘As TDAPIOLELib.SysTreeNode
Dim otaExtendedStorage ‘As TDAPIOLELib.TreeManager

Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)

Dim strPath ‘As String

Set otaTreeManager = QCUtil.TDConnection.TreeManager
Set otaSysTreeNode = otaTreeManager.NodeByPath(TDFolderPath)
Set otaAttachmentFactory = otaSysTreeNode.Attachments
Set otaAttachmentFilter = otaAttachmentFactory.Filter
otaAttachmentFilter.Filter(“CR_REFERENCE”) = “‘ALL_LISTS_” & otaSysTreeNode.NodeID & _
“_” & TDAttachmentName & “‘”
Set otaAttachmentList = otaAttachmentFilter.NewList
If otaAttachmentList.Count > 0 Then
set otaAttachment = otaAttachmentList.Item(1)
otaAttachment.Load True, “”
strPath = otaAttachment.FileName

if(bMovetoRoot) then
If (fso.FileExists(otaAttachment.FileName)) Then
fso.CopyFile strPath, “c:\”&TDAttachmentName
DownloadAttachment = “c:\”&TDAttachmentName
else
DownloadAttachment = strPath
end if
else
DownloadAttachment = strPath
end if
Else
Reporter.ReportEvent micFail, “Failure in library function ‘GetFolderAttachmentPath’”, _
“Failed to find attachment ‘” & TDAttachmentName & “‘ in folder ‘” & TDFolderPath & “‘.”
DowloadAttachment = “Empty”
End If

Set otaAttachmentFactory = Nothing
Set otaAttachment = Nothing
Set otaAttachmentList = Nothing
Set otaAttachmentFilter = Nothing
Set otaTreeManager = Nothing
Set otaSysTreeNode = Nothing
Set fso = nothing

End Function