‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'QCUTIL OBJECT

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Public Function funcQCUtil()

Set objQC = QCUtil.QCConnection

Set objTM = objQC.TreeManager

Set objRoot = objTM.TreeRoot("Subject")

Set objChildNode = objRoot.FindChildNode("_Recycle bin")

Set objChildNode1 = objChildNode.FindChildNode("FlexFlow_Copy_1")

Set objAtt = objChildNode1.Attachments

Set objAttach = objAtt.AddItem(sFileName)

objAttach.Post

Set objExtFile = objAttach.AttachmentStorage

objExtFile.CLientPath = sPath

objExtFile.Save sFileName, true

End Function

‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%