使用 Excel VBA 在 HP ALM QC 11.0 版本选项卡中添加文件夹

Question

我一直在尝试在 QC Releases 文件夹中创建文件夹结构。我可以遍历现有数量的文件夹，但找不到任何可以添加我选择的新文件夹的东西。这是我编写的子例程，我计划通过以“Releases\XYZ\ABC”格式发送函数的路径来调用它。首先，此代码将忽略路径中的 Releases 关键字。然后我会找到文件夹 XYZ，如果没有找到它应该创建它。有人可以帮我添加添加节点的代码吗？然后我可以继续进一步编码。这是我在这里的第一个问题，所以请忽略我的错误，如果有的话。

我试过 AddNode 但没有用。

下面提到的是我到目前为止写的代码：

Public Sub releasePath(strPath As String)

Dim arr, bflag
Set folderFactory = tdc.releaseFolderFactory
Set folderFactoryNode = folderFactory.Filter
Set releaselist = folderFactoryNode.newList()

arr = Split(strPath, "\")
bflag = False


relesefoldercount = releaselist.Count
For i = 1 To relesefoldercount
    Set releseitem = releaselist.Item(i)
    If releaselist.Item(i).Name = arr(1) Then            
        bflag = True
    End If

Next
If bflag = False Then
    'create folder xyz        
End

结束子

Answer 1

首先，我认为您的变量名称相当混乱。您的 folderFactoryNode 是一个 TDFilter 对象，而您的 releaselist 实际上是一个 ReleaseFolder 对象列表，而不是一个 Releases 列表。要创建新的 ReleaseFolder，您需要调用 ReleaseFolderFactory 的 AddItem。在您的情况下，要创建第一级文件夹，您需要类似的东西（未经测试，直接来自 OTA API 文档）：

' Create a Release folder.
Set oReleaseFolderFactory = tdc.ReleaseFolderFactory
Set rootReleaseFolder = oReleaseFolderFactory.Root
Set oReleaseFolderFactory = rootReleaseFolder.ReleaseFolderFactory
Set relFolder = oReleaseFolderFactory.AddItem(Null)
relFolder.Name = "XYZ"
relFolder.Post

对于更深层次（示例中的 ABC 文件夹），您可以使用 XYZ 文件夹的 ReleaseFolderFactory 的 AddItem。