QC OTA || Copy Paste Test Set Folder

Public Function CopyPasteTestSetFolder(sourceFolderPath, destFolderPath)
 
    strUser = ""
    strPassword = ""
    strDomain = ""
    strProject = ""

    strServer = “”
   
     Set objTDConnection = CreateObject("tdapiole80.TDCONNECTION")
     objTDConnection.InitConnection strServer, strDomain
     objTDConnection.ConnectProject strProject, strUser, strPassword
 
     Set objTreeManager = objTDConnection.TestSetTreeManager
     Set sourceFolder = objTreeManager.NodeByPath("Root\XXXX")
     Set destFolder = objTreeManager.NodeByPath("Root\YYYY")
 
     Dim iscp As ISupportCopyPaste
       
     Set iscp = sourceFolder

     clipboard = iscp.CopyToClipBoard(sourceFolder.NodeID, 0, sourceFolderPath)

     Set iscp = destFolder
     iscp.PasteFromClipBoard clipboard, destFolder.NodeID, 0, -1

     Set treeMng = Nothing
     Set sourceFolder = Nothing
     Set destFolder = Nothing
     Set iscp = Nothing
 
End Function