Attach File to Current Test Run in ALM (QC)

' Input File Path
strFiletoattach = "C:\Automation\file.xls" ' File type can be any.i.e., .xls,.png,.html etc

Set o_CurrentRun=QCUtil.CurrentRun
Set CTA=o_CurrentRun.Attachments
Set att1 = CTA.AddItem(null)
att1.fileName=strFiletoattach
att1.type=1
att1.post
att1.save False