Script to upload attachment in QC test lab

Dim oCurrentTest,oAttachment
Set oCurrentTest = QCUtil.CurrentTest.Attachments
Set oAttachment = oCurrentTest.AddItem(Null)
oAttachment.FileName = “C:Results.xls”
oAttachment.Type = 1 oAttachment.Post
oAttachment.Refresh Set
oAttachment =Nothing
Set oCurrentTest =Nothing