操作QC的附件

function uploadAttachmentToTestSet()
    set CurrentTSTest = QCUtil.CurrentTestSet        
   
   
        Set AttachmentFactory = CurrentTSTest.Attachments   
        Set Attachment = AttachmentFactory.AddItem(Null)            
        '上传文件并更新   
        Attachment.FileName = "test.html"
        Attachment.Type = 1   
        Attachment.Post   
        Attachment.Refresh   
        set Attachment = nothing
        set AttachmentFactory = nothing                    
        
   
end function