Set objQCConnection = QCUtil.QCConnection
Set objQCResourceFolderFactory = objQCConnection.QCResourceFolderFactory
Set objFilter = objQCResourceFolderFactory.Filter
Set objResourceFolders = objFilter.NewList
For Each ResourceFolder In objResourceFolders
If ResourceFolder.Name = "Specified Folder Name" Then
Set objQCResourceFolderFactory = objQCConnection.QCResourceFolderFactory
Set objFilter = objQCResourceFolderFactory.Filter
Set objResourceFolders = objFilter.NewList
For Each ResourceFolder In objResourceFolders
If ResourceFolder.Name = "Specified Folder Name" Then
MsgBox ResourceFolder.Path
Exit For
End If
Next
Set objResourceFolders = Nothing
Set objFilter = Nothing
Set objQCResourceFolderFactory = Nothing
Set objQCConnection = Nothing
Exit For
End If
Next
Set objResourceFolders = Nothing
Set objFilter = Nothing
Set objQCResourceFolderFactory = Nothing
Set objQCConnection = Nothing
No comments:
Post a Comment