‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'QCUTIL OBJECT
‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Public Function funcQCUtil()
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
‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
No comments:
Post a Comment