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

'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