Re: Extracting list of Release Names available in QC 11.5.

Hi srekk,

For the below structure:

In order to Display Release Folder Name and Iterate through their Releases written the below code:

Imports TDAPIOLELib

Module Module1
    Sub Main()
        Dim tdc
        tdc = CreateObject("TDApiOle80.TDConnection")
        tdc.InitConnectionEx("http://almdev/qcbin")
        tdc.ConnectProjectEx("DEFAULT", "AMGEN_ERP", "svanumu", "DUMMY_PASSWORD")
        Dim FolderId As Long
        Dim folderFactory As ReleaseFolderFactory
        Dim relFactory As ReleaseFactory
        Dim FolderFilter As TDFilter
        Dim listOfReleases As List
        Dim rel As TDAPIOLELib.Release
        Dim folder As ReleaseFolder
        Dim flist As List
        folderFactory = tdc.releaseFolderFactory
        flist = folderFactory.NewList("")
        For Each ReleaseFolderEntity In flist
            Console.WriteLine(ReleaseFolderEntity.Name)
            Console.WriteLine(ReleaseFolderEntity.ID)
            FolderId = ReleaseFolderEntity.ID
            folder = folderFactory.Item(FolderId)
            relFactory = folder.ReleaseFactory
            listOfReleases = relFactory.NewList("")
            For Each rel In listOfReleases
                Console.WriteLine(rel.Name)
            Next
        Next
        Console.ReadLine()
        folderFactory = Nothing
        relFactory = Nothing
        FolderFilter = Nothing
        listOfReleases = Nothing
        folder = Nothing
        rel = Nothing
        '******* END OF CODE FROM OTA FILE ****************/
    End Sub
End Module

 Recieved the below output:

Regards,

Srihari