HP ALM QC 11.0 릴리스 탭에 폴더 추가 Excel VBA를 사용하여

Question

QC 릴리스 폴더에 폴더 구조를 만들려고했습니다. 기존 폴더 수를 탐색 할 수 있지만 새 폴더를 추가 할 수있는 항목을 찾을 수 없습니다. 다음은 "Release \ XYZ \ ABC"형식으로 함수에 대한 경로를 보내서 호출 할 계획 인 Sub Routine입니다. 먼저이 코드는 경로에서 Releases 키워드를 무시합니다. 그런 다음 폴더 XYZ를 찾은 다음 찾을 수없는 경우 폴더 XYZ를 만들어야합니다. 누군가 노드를 추가하는 코드로 나를 도울 수 있습니까? 그런 다음 계속 코딩 할 수 있습니다. 이것은 나의 첫 번째 질문이므로 내 실수는 무시하십시오.

AddNode를 시도했지만 작동하지 않았습니다. 아래에 언급

내가 지금까지 작성한 코드입니다 :

공공 하위 releasePath (문자열로 strPath)

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은 실제로 Release 목록이 아닌 ReleaseFolder 객체의 목록입니다. 새 ReleaseFolder를 만들려면 ReleaseFolderFactory의 AddItem을 호출해야합니다. 더 깊은 수준 (귀하의 예제에서 ABC 폴더), 당신의 AddItem을 사용할 수 있습니다에 대한

' 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 

: 귀하의 경우, 첫 번째 단계는합니다 (OTA API 문서에서 직접 테스트되지 않은) 그런 뭔가가 필요 폴더를 만들 수 있습니다 XYZ 폴더의 ReleaseFolderFactory