Re: How to remove the Attachments from the Test lab

Hi Krish,

See if this code helps.

Anup.

Private Function DeleteTestAttachment(theTest As TDAPIOLELib.Test)
    Dim TestAttachFact As AttachmentFactory
    Dim attachList As List, TAttach As Attachment
    Dim FileName As String
    Set TestAttachFact = theTest.Attachments
    Set attachList = TestAttachFact.NewList("")
    For Each TAttach In attachList
        TestAttachFact.RemoveItem (TAttach.ID)
    Next
End Function