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
'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
Thanks :)
ReplyDelete