给定文件夹中没有任何测试集中的测试列表

如何解决给定文件夹中没有任何测试集中的测试列表

我需要编写一个脚本，以输出给定文件夹中所有测试的列表，这些测试不在任何测试集中。我找到了一个脚本（在下面），除了在所有文件夹中运行外，它完全可以满足我的需要。

Public Sub ListUnusedTests() 

    Dim testSetF As TestSetFactory
    Dim testF As TestFactory
    Dim testSetFilter As TDFilter
    Dim testFilter As TDFilter
    Dim aTest As Test
    Dim testL As List
 
    Set testSetF = tdc.TestSetFactory
    Set testSetFilter = testSetF.Filter
    testSetFilter.Filter("CY_CYCLE") = ">= 0"
    
    Set testF = tdc.TestFactory
    Set testFilter = testF.Filter
    testFilter.SetXFilter "TEST-TESTSET",False,testSetFilter.Text
    Set testL = testF.NewList(testFilter.Text)

    Dim Item
    For Each Item In testL
        Debug.Print Item.Name
    Next Item
End Sub

我知道这是一个非常琐碎的问题，但是在文档或论坛中找不到我的答案。我想我需要使用get_Node函数，我只是不知道如何实现它，因为我对此很陌生，由于权限待定，我什至无法测试我的代码。