When adding an item using the QCResourceFactory the QCResourceFactory needs to be created from an existing QCResourceFolder and not directly from the TDConnection. Even though the Object is being created as a virtual object that you will place in a non root folder you still need to provide a path to a non root folder. You can then specify any non root folder that you want to put the object in. So your code should look like this.

'Create Resource Folder
Set rFolderFactory = TDConnection.QCResourceFolderFactory.root.QCResourceFolderFactory
set newFolder = rFolderFactory.AddItem(Null)

newFolder.Name = ''Archive Test Results''
newFolder.parentId = 1
newFolder.Post

'Create Resource
Set rResourceFactory = newFolder.QCResourceFactory
Set newResource = rResourceFactory.AddItem(Null)

newResource.Name = ''Results_Path''
newResource.ParentId = newFolder.Id
newResource.ResourceType = ''Test Resource''
newResource.Post

Set newResource = Nothing
Set newFolder = Nothing
Set rResourceFactory = Nothing

Set rFolderFactory = Nothing

Basically just take the newFolder Object you created First and set your rResourceFactory object equal to newFolder.QCResourceFactory then the rest of the code should work fine.

Hello Everybody,

I need to make a code for HP UFT that is moving a Test Resource from one Folder to Other. Please Help if anybody has Suggestions. Thx