Functions to download attachment from folder in Test Plan ALM

This function connects to QC test plan and gets the node of the folder you want the attachement from.

Public Function GetAttachmentFromFolder(FolderName, FileName, OutPath)
                Set TDConnection = QCUtil.TDConnection
                Set treeManager =  TDConnection.TreeManager
                Set node = treeManager.nodebypath(FolderName) 
                               
    GetAttachmentFromFolder = GetAttachmentFromTestObject(node, FileName, OutPath)
End Function

This function gets the attachment from the testobject which is extracted from the node which is extracted in above function

Public Function GetAttachmentFromTestObject (TestObject, FileName, OutPath)
                MyPath = GetAttachmentServerPath(TestObject, FileName, LongFileName)

                If StrComp(MyPath, "") = 0 Then
                                GetAttachment = ""
                                Exit Function
                End If

                If Right(OutPath, 1) <> "\" Then
                                OutPath = OutPath & "\"
                End If

                ' Load the attachment using the extended storage object
                Set TDConnection = QCUtil.TDConnection
                Set ExtendedStorage = TDConnection.ExtendedStorage
                ExtendedStorage.ServerPath = MyPath
                ExtendedStorage.ClientPath = OutPath
                ExtendedStorage.Load LongFileName, True
               
                GetAttachmentFromTestObject = OutPath & LongFileName
                End Function

This function will get the server path of the attachement based on the test object we have extracted in above function.

Public Function GetAttachmentServerPath (Object, FileName, LongFileName)
                Set AttachmentFactory = Object.Attachments
                Set AttachmentList = AttachmentFactory.NewList("")

                For Each Attachment in AttachmentList
                                If StrComp(Attachment.Name(1), FileName, 1) = False Then ' Equal
                                                LongFileName = Attachment.Name                                       
                                                Pos = Instr(1, Attachment.ServerFileName, Attachment.Name, 1)
                                                GetAttachmentServerPath = Left(Attachment.ServerFileName, Pos - 1)
                                                Exit Function
                                End If
                Next
                GetAttachmentServerPath = ""
End Function

 Please let me know if you need any help on above functions.

Comments

Post a Comment

Popular posts from this blog

UFT - Resolving scrolling issue if object is not visible

There are many times when an object gets the place changed based on the list getting longer on the same webpage, which creates the need to scroll down on the webpage for any automation script to perform any action on the object. Many times we try to resolve this issue using the below code. Set objShell=CreateObject("WScript.Shell") objShell.SendKeys "{PGDN}" But if the place is dynamic and the lists above that object gets bigger then it requires more page down which will be never ending story and requires maintenance every time. So to resolve this issue we can use the below code which will take the pointer focus to the object. Browser("<object properties>").Page("<object properties>").Webbutton("name:=Next").Object.Focus After this you can perform any action on the object.
Read more

How to create a zip folder using VBScript

Below function will create the zip folder and hep you to upload big testing artifacts as attachment in ALM:     ZipAttach = ""     ' Declare the required variables     Dim objZip, objSA, objFolder, zipFile, FolderToZip         FolderToZip = strFoldertoZip     zipFile = strFoldertoZip & ".zip"     'FolderToZip = Environment.Value(<ResultFolder on local drive>)         'Create the basis of a zip file.     CreateObject("Scripting.FileSystemObject") _     .CreateTextFile(zipFile, True) _     .Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)     ' Create the object of the Shell     Set objSA = CreateObject("Shell.Application")         ' Add the folder to the Zip     Set objZip = objSA.NameSpace(zipFile)     Set objFolder = objSA.NameSpace(FolderToZip)    ...
Read more

how to access the excel file as database in UFT?

We mostly use the excel file in UFT by using the excel object but it can also be accessed as a database and you can run the queries on different excel sheets as the database tables. You can use the ADODB connection to use the excel as database. Below is the code snippet to use excel as a database. Set  Conn =  CreateObject ( "ADODB.Connection" ) Set  RecSet=  CreateObject ( "ADODB.RecordSet" ) Conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  & ExcelFilePath&  ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1"";" If you want to access the .xlsx file then please change "Excel 8.0" to "Excel 12.0". After making the successful connection, you need to provide the query and execute it using the recordset in the same way you do it for database tables. But here you need to provide the excel sheet name as database tables.  Query =  "Select * From ["  & sheetName &  ...
Read more