See code sample below
-------------------------------------
Set oWsh = CreateObject("WScript.Shell")
strTempFolderPath = oWsh.ExpandEnvironmentStrings("%Temp%")
strFilePathToSave = strTempFolderPath & "\Test1.png"
SAPGuiSession("Session").SAPGuiWindow("Notification: InfoSpokes").CaptureBitmap
strFilePathToSave ,True
Set QCConnection = QCUtil.QCConnection
Set treeManager = QCConnection.TreeManager
' Specify the local path to the file.
LocalFilePath = strFilePathToSave
' Specify the Quality Center path to the desired folder
Screen1 ="Subject\BW Automation\Screen_Shots"
Set node = treeManager.nodebypath(Screen1)
set att = node.attachments
Set atta = att.AddItem(Null)
atta.FileName = LocalFilePath
atta.Type = 1
atta.Post()
----------------------------------------------------------------------------------
On Friday, April 13, 2012 11:45:12 AM UTC+5:30, gajendra wrote:
>
> Hi
>
> Can anyone share the code to upload all the local files(eg Library) to
> the QC Test Plan using OTA?
>
> Regards,
> Gajendra
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
