Any option to copy/download from HPQC to local path...pls help

[cdesserich]

Here's a function to download attachments from QC. It will only work for attachments in the Test Plan module, but that should work for you.

Code:

'@Description Downloads specified attachment from QC. Specify the fully qualified QC path, ex. "Subject\Utilities\Test.txt". Returns the local file path.
Public Function LoadAttachment(ByVal attachmentPath)
    Dim node, attachmentFilter, attachmentList, attachment, nodePath, fileName
    
    nodePath = Left(attachmentPath, InStrRev(attachmentPath, "\") - 1)
    fileName = Right(attachmentPath, Len(attachmentPath) - InStrRev(attachmentPath, "\"))
    
    Set node = QCUtil.TDConnection.TreeManager.NodeByPath(nodePath)
    Set attachmentFilter = node.Attachments.Filter
    attachmentFilter.Filter("CR_REFERENCE") = "'ALL_LISTS_" & node.NodeID & "_" & fileName & "'"
    Set attachmentList = attachmentFilter.NewList
    
    If attachmentList.Count = 1 Then
        Set attachment = attachmentList.Item(1)
        
        'Create a dialog to show while attachment is loading if not running from QC
        If QcUtil.CurrentTestSet Is Nothing And QcUtil.CurrentRun Is Nothing Then
            Dim dialogForm, dialogStartPosition, dialogBorderStyle, dialogLabel, dialogFont, dialogContentAlign, hWnd, intPtrHWnd, qtpWnd
            Set dialogForm = DotNetFactory.CreateInstance("System.Windows.Forms.Form", "System.Windows.Forms")
            Set dialogStartPosition = DotNetFactory.CreateInstance("System.Windows.Forms.FormStartPosition", "System.Windows.Forms")
            Set dialogBorderStyle = DotNetFactory.CreateInstance("System.Windows.Forms.FormBorderStyle", "System.Windows.Forms")
            Set dialogLabel = DotNetFactory.CreateInstance("System.Windows.Forms.Label", "System.Windows.Forms")
            Set dialogFont = DotNetFactory.CreateInstance("System.Drawing.Font", "System.Drawing", "Microsoft Sans Serif", 11)
            Set dialogContentAlign = DotNetFactory.CreateInstance("System.Drawing.ContentAlignment", "System.Drawing")
            dialogForm.Width = 280: dialogForm.Height = 100: dialogForm.ControlBox = False: dialogForm.StartPosition = dialogStartPosition.CenterScreen
            dialogForm.FormBorderStyle = dialogBorderStyle.FixedDialog: dialogForm.Text = "Downloading Attachment From Quality Center..."
            dialogLabel.Width = 260: dialogLabel.Height = 80: dialogLabel.Top = 0: dialogLabel.Left = 10: dialogLabel.Font = dialogFont
            dialogLabel.TextAlign = dialogContentAlign.MiddleCenter: dialogLabel.Text = "Downloading " & fileName & " From Quality Center, Please Stand By..."
            dialogForm.Controls.Add dialogLabel
            hWnd = Window("RegExpWndTitle:=QuickTest Professional").GetROProperty("hWnd")
            Set intPtrHWnd = DotNetFactory.CreateInstance("System.IntPtr", "Mscorlib", hWnd)
            Set qtpWnd = DotNetFactory.CreateInstance("System.Windows.Forms.NativeWindow", "System.Windows.Forms")
            qtpWnd.AssignHandle intPtrHWnd
            dialogForm.Show qtpWnd: dialogForm.Refresh()
        End If
        
        'Load attachment
        attachment.Load True, ""
        
        'Get rid of the dialog if not running from QC
        If QcUtil.CurrentTestSet Is Nothing And QcUtil.CurrentRun Is Nothing Then
            dialogForm.Close: dialogForm.Dispose
            Set dialogContentAlign = Nothing: Set dialogFont = Nothing: Set dialogLabel = Nothing: Set dialogBorderStyle = Nothing
            Set dialogStartPosition = Nothing: Set dialogForm = Nothing: Set intPtrHWnd = Nothing: Set qtpWnd = Nothing
        End If
        
        LoadAttachment = attachment.FileName
    ElseIf attachmentList.Count = 0 Then
        Err.Raise 17, "Load Attachment", fileName & " File Not Found!"
    Else
        Err.Raise 17, "Load Attachment", "Unknown Error Loading " & fileName & "!"
    End If
    
    Set node = Nothing
    Set attachmentFilter = Nothing
    Set attachmentList = Nothing
    Set attachment = Nothing
End Function

To run a Java JAR file with the above function, you can do something like:

Code:

Dim jarPath: jarPath = LoadAttachment("Subject\Test.jar")
Dim folderPath: folderPath = Left(jarPath, InStrRev(jarPath, "\")-1)
Dim wsh: Set wsh = CreateObject("WScript.Shell")
wsh.Run "cmd /c cd " & folderPath & "&&java -jar " & jarPath, 10, True

I have not tested the second piece of code though, so you might get some errors you will have to work through. However, this should at least give you an idea of how to do what you want. Search for "WScript.Shell" and how to concat command line commands to find out what this code does.

Hope this helps!!!

P.S. Don't forget to release the objects in your final code!