Define a Folder Search List
Source code
'This example opens UFT One and uses the Folders collection to configure
'the search paths that are used to resolve relative paths.
'There is no unsaved test currently open in UFT One.
'For more information, see the example for the Test.SaveAs method.

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim strPath
Dim lngPosition

' Open UFT One
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start UFT One
qtApp.Visible = True ' Make the UFT One application visible

' Open a test
qtApp.Open "C:\Tests\Test1", True, False ' Open a test in a read-only mode

' Locate "Folder1" and if it's not in the collection - add it
strPath = qtApp.Folders.Locate("..\..\Folders\Folder1")
' Locate the "Folder1" folder

' If returned empty string, then we cannot locate the absolute path, so there is nothing to do
If strPath <> "" Then
  If qtApp.Folders.Find(strPath) = -1 Then ' If the folder is not found in the collection
    qtApp.Folders.Add strPath, 1 ' Add the folder to the collection
  End If
End If

Set qtApp = Nothing ' Release the Application object