通过宏将所有附件从测试实验室导出

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"