我们正在使用ALM 12.我们的测试资源模块中有多个文件夹,这些文件夹中存储的一些资源与其他文件夹中的名称相同。我可以使用该名称下载资源,但无法弄清楚如何获取特定文件夹下的资源。任何人都知道如何下载指定要从中下载文件夹的资源?
e.g 文件夹1 mysheet.xls 文件夹2 mysheet.xls
我想下载Folder2 \ mysheet.xls而不是Folder1 \ mysheet.xls
答案 0 :(得分:0)
Option Explicit
Dim objCon, cust, resource
set objCon= CreateObject("TDApiOle80.TDConnection")
objCon.InitConnectionEx "http://YourALMServer:Port/qcbin"
objCon.Login "username", "password"
objCon.Connect "domainName", "projectName"
Set oResourceFolder = objCon.QCResourceFolderFactory
Set oFilter = oResourceFolder.Filter
oFilter.Filter("RFO_NAME") ="abc" \\ abc is your folder name
Set oList = oFilter.NewList()
set oChild = oList.item(1).QCResourceFactory.NewList("")
''assuming that there is only 1 folder with name "abc" in Test Resources section
For i =1 to oChild.count Step 1
oChild.item(i).DownloadResource "c:\\a", TRUE
''c:\\a is the location where we need to safe the resource
next
set objCon = Nothing