ధనానికి లొంగని జగతేలేదు ..

స్థలమై పొలమై బంగారమై
రుణమై ధనమై ఆస్తై అప్పై అరువై
ధనం ఆడుకుంటుంది, అన్నిటా తానై

వ్యామోహాలకైనా వ్యాపకాలకైనా వ్యసనాలకైనా
ఆశలకైనా దురాశలకైనా
రాజులకైనా రాజకీయాలకైనా...

చక్రం తిప్పే వాళ్ళని చేస్తుందీ
దానిలో తిరిగే వాళ్ళను చేస్తుంది

ఒకడికి కూటి కోసం కోటి విద్యలు నేర్పుతుంది
కోట్లలో పోగై ఇంకొకడిని మూర్ఖుడిని చేస్తుంది

దానాలు చేసే ధర్మాత్ములను చేస్తుంది
దురాశతోనున్న దుర్మార్గులనూ చేస్తుంది

అన్నదమ్ములను వీదికీడ్చి వేర్పాటు చేస్తుంది
మనిషిలో చెడై తను ఆడుకుంటుంది

ధనానికి లొంగని జగతేలేదు
ఏదైనా ఉంటే అది చచ్చే నిముషం దాకా అర్థం కాదు !

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