PROSAGA码农传奇-资源引擎-用uft创建QC资源

<div class =“post-text”itemprop =“text”>
  <P>
    我想我在这里找到了答案：
    <a href="http://www.codetweet.com/other/create-new-resource-almqc-using-ota/" rel="nofollow noreferrer">
      http://www.codetweet.com/other/create-new-resource-almqc-using-ota/
    </A>
  </p>
   <pre>
    <code>
      Sub CreateNewResource(resourceFolderId As Integer, fileType As String, fileName As String, fileParentFolderPath As String)

On Error GoTo Errhandler:

'--- Represents a file or folder stored in the Quality Center repository
    Dim resource As QCResource
    '--- Represents a QC resource folder.
    Dim resourceFolder As QCResourceFolder
    '--- Services for managing QC resources.
    Dim resourceFactory As QCResourceFactory
    '--- Services for managing QC resource folders.
    Dim resourceFolderFactory As QCResourceFolderFactory
    '--- Services to manage resource storage.
    Dim testResourceStorage As IResourceStorage
    Dim resourceItem
    Dim resourceFound As Boolean

' ***TDConn is TDConnection class object.Create this object before using this function.
    Set resourceFolderFactory = TDConn.QCResourceFolderFactory
    Set resourceFolder = resourceFolderFactory.Item(resourceFolderId)
    Set resourceFactory = resourceFolder.QCResourceFactory
    Set currResourceList = resourceFactory.NewList("")

For ItemCount = 1 To currResourceList.Count
        currItem = currResourceList.Item(ItemCount).Name
        If UCase(currItem) = UCase(fileName) Then
            Set resourceItem = currResourceList.Item(ItemCount)
            resourceFound = True
            Exit For
        End If
    Next

If Not resourceFound Then
        '--- Create a resource
        Set resourceItem = resourceFactory.AddItem(fileName)
        resourceItem.ResourceType = fileType
        resourceItem.fileName = fileName
        resourceItem.Post

'--- Check if the resources added successfully
        Set currResourceList = resourceFactory.NewList("")
        For ItemCount = 1 To currResourceList.Count
            currItem = currResourceList.Item(ItemCount).Name
            If UCase(currItem) = UCase(fileName) Then
                resourceFound = True
                Exit For
            End If
        Next

If resourceFound Then
            '--- Attach the file to resource
            resourceItem.vC.CheckOut ""
            Set testResourceStorage = resourceItem
            testResourceStorage.UploadResource fileParentFolderPath, False
            resourceItem.vC.CheckIn "Automated check-in by utility" &amp; Now
        Else
             oFile.WriteLine ("Recently added new resource not found on ALM.Try again later.")
             Exit Sub
        End If
    Else
        resourceItem.vC.CheckOut ""
        Set testResourceStorage = resourceItem
        testResourceStorage.UploadResource fileParentFolderPath, False
        resourceItem.vC.CheckIn "Automated check-in by utility" &amp; Now
    End If

Set resourceFolderFactory = Nothing
    Set resourceFolder = Nothing
    Set resourceFactory = Nothing
    Set currResourceList = Nothing

Exit Sub

Errhandler:
   MsgBox("Error Executing - `CreateNewResource`  ; Error Uploading file " &amp; fileName)
   Exit Sub
End Sub

</code>
  </pre>
</DIV>