Upload files in the QC Test Plan Tab as attachments

'##############################################################################
'Function Name : Func_UploadFilesAsAttachments
'Description : Uploads files in Qc as attachments
'Input Parameters : FolderName,FileSpec,FileDesc
'Modified By: 'Modified Date: 'Modification Details:
'1:
'2:

'##############################################################################

Public Function Func_UploadFilesAsAttachments(FolderName,FileSpec,FileDesc)

Dim Qc ,Tm,root,foldAttachments

Set Qc=TDUtil.QCConnection

Set Tm=QC.TreeManager
Set root=tm.treeroot("Subject")

Set childNode = root.FindChildNode(FolderName)
Set foldAttachments = childNode.Attachments

Set foldAttachment = foldAttachments.AddItem(Null)
foldAttachment.FileName =FileSpec
foldAttachment.Description =FileDesc
foldAttachment.Type = 1
foldAttachment.Post

End Function

Comments

Post a Comment

Popular posts from this blog

Arrays

What is the difference between eval, execute and executeglobal.

Sample Test Strategy for a MicroService Project with APIs only