QCResourceFolderPath
= "Resources\SampleFolder"
QCResourceFolderPath
= "^" & QCResourceFolderPath & "^" 'Add
^ character at both ends
Set objQCConnection = QCUtil.QCConnection
Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter
Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter
objFilter.Filter("RSC_FOLDER_NAME") = QCResourceFolderPath
Set objResources = objFilter.NewList
For
Each Resource In objResources
Resource.DownloadResource "Specified
Local Folder Path", True
Next
Set objResources = Nothing
Set objFilter = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing
No comments:
Post a Comment