Public Function AddObjectRepository(path)

    On Error Resume Next

    Dim pos, repath

    If instr(path,".tsr") Then

        repath = path

    else

        repath = path & ".tsr"

    End If

    RepositoriesCollection.RemoveAll()

    print repath

    RepositoriesCollection.Add (repath)

    pos = RepositoriesCollection.Find(repath)

    If pos<>1 Then

        print "cannot find repository"

    End If

End Function

Call AddObjectRepository("D:\hell")