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

我一直在尝试在QC Releases文件夹中创build一个文件夹结构。 我可以遍历现有的文件夹数量，但我找不到任何添加我select的新文件夹。 这是我写的子程序，我打算通过以“发布\ XYZ \ ABC”格式发送path到函数来调用。 首先，这段代码将忽略path中的Releases关键字。 然后，我会find文件夹XYZ，如果没有find它应该创build它。 有人可以帮我用代码添加一个节点。 然后我可以继续编码。 这是我的第一个问题，所以请忽略我的错误。

我曾尝试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

首先，我认为你的variables名称很混乱。 你的folderFactoryNode是一个TDFilter对象，你的releaselist实际上是一个ReleaseFolder对象列表，而不是一个发布列表。 要创build一个新的ReleaseFolder，您需要调用ReleaseFolderFactory的AddItem。 在你的情况下，要创build第一级文件夹，你需要类似的东西（未经testing，直接从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。