QTP Forum
Shopmotion


How to Download a file from Quality Center (QC/ ALM) to local machine Empty
Search
 
 

Display results as :
 


Rechercher Advanced Search

Poll
Keywords

Latest topics
September 2019
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
30      

Calendar Calendar

Affiliates
free forum


How to Download a file from Quality Center (QC/ ALM) to local machine

Go down

Vote if this topic was useful to you

How to Download a file from Quality Center (QC/ ALM) to local machine Vote_lcap50%How to Download a file from Quality Center (QC/ ALM) to local machine Vote_rcap 50% 
[ 1 ]
How to Download a file from Quality Center (QC/ ALM) to local machine Vote_lcap0%How to Download a file from Quality Center (QC/ ALM) to local machine Vote_rcap 0% 
[ 0 ]
How to Download a file from Quality Center (QC/ ALM) to local machine Vote_lcap50%How to Download a file from Quality Center (QC/ ALM) to local machine Vote_rcap 50% 
[ 1 ]
How to Download a file from Quality Center (QC/ ALM) to local machine Vote_lcap0%How to Download a file from Quality Center (QC/ ALM) to local machine Vote_rcap 0% 
[ 0 ]
 
Total Votes : 2

How to Download a file from Quality Center (QC/ ALM) to local machine Empty How to Download a file from Quality Center (QC/ ALM) to local machine

Post by Gajre on Wed Oct 10, 2012 12:55 am

'Assign values to the variables or pass then during the function call, as arguments.
Shortfilename = "GajreFuncLibrary" 'This the file name in the QC, which you want to download.
destinationpath = "D:\Gajre\QC Temp Folder" 'Local folder path to which you want to download.

call DownloadQCResourcefile(Shortfilename,destinationpath)

Public Function DownloadQCResourcefile(Shortfilename,destinationpath)
On Error Resume Next
DownloadQCResourcefile = -1
Set oTDC = QCUtil.QCConnection
Set oResourceFactory = oTDC.QCResourceFactory
Set oRoot = oResourceFactory.NewList("")
iTotalItems = oRoot.Count
For ItemCtr = 1 To iTotalItems
CurItem = oRoot.Item(ItemCtr).Name
If UCase(CurItem) = UCase(Shortfilename) Then
Set oSub = oRoot.Item(ItemCtr)
Exit For
End If
Next
Set oRoot = Nothing
Set oResourceFactory = Nothing
Set oTDC = Nothing
If Not Isempty(oSub) Then
oSub.DownloadResource destinationpath, True
End If
If err.number<>0 Then
Exit Function
DownloadQCResourcefile=0
End if
Set fObj = nothing
Set oSub = nothing
on error goto 0
End Function
Gajre
Gajre
Admin

Posts : 37
Join date : 2012-06-17
Age : 36
Location : Hyderabad

View user profile https://qtpelearning.forumotion.com

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum