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

Question

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

我试过AddNode，但没有奏效。

下面提到是迄今为止我所编写的代码：

公用Sub RELEASEPATH（strPath的作为字符串）

​​

末次

Answer 1

首先，我认为你的变量名相当混乱。您的folderFactoryNode是TDFilter对象，您的releaselist实际上是ReleaseFolder对象的列表，而不是发布列表。要创建新的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文件夹），您可以使用的AddItem XYZ文件夹的ReleaseFolderFactory。