Экспорт всех вложений из тестовой лаборатории через макрос

Question

Привет. Я пытаюсь загрузить приложения из тестовой лаборатории, для которой я написал код VBA.Я не могу получить список вложений в тестовом наборе.

Ниже приведен код для получения списка вложений тестового набора.Может ли кто-нибудь улучшить это или указать мне, что не так в этом коде.

For Each Test In testList 'iterate through the list of Test objects
    Set attFact = Test.Attachments
    Set attfilter = attFact.Filter

    attfilter.Filter("TS_ATTACHMENT") = Chr(34) & "Y" & Chr(34)
    a = attfilter.Text
    Set attList = attFact.NewList(attfilter.Text)
    c = attList.Count

    For Each attItem In attList
        attItem.Load True, "D:\New Floder"