Duplicate variables (or strings) from one data folder to another

I want to duplicate a set of variables created at root: into a DataFolder existing at the root level. I came up with the code below (IP9). The two calls to SetDataFolder root: are safety redundancies.

string theItem, theSItem
SetDataFolder root:
wave/T varList = ListtoTextWave(VariableList("tau*",";",4) + VariableList("UB*",";",4),";")
SetDataFolder root:dataStore
for(theItem : varList)
	theSItem = "root:" + theItem
	NVAR tv = $theSItem
	variable/G $theItem = tv
endfor	
SetDataFolder root:

Essentially, I have to a) collect the variable list at root, b) move to the storage data folder, c) iterate over the variable list to ci) reference the root: variable using NVAR and cii) generate the new variable using variable/G.

Does a more elegant way exist to duplicate variables (and strings)?

Just curious. How is it possible to "group them in a data folder" (programmatically) without something akin to the above?

In the meantime, I'm refactoring to store strings and variables in a root-level data folder at the outset (followed by DuplicateDataFolder).

And in the meantime, I would have wished to have raised my hand last year or so with IP10 for DuplicateVariable and DuplicateString commands (or Move.../D flag for "duplicate" rather than just move).

This code is arguably slightly cleaner:

Function DuplicateVars()
	DFREF rootDFR = root:
	DFREF dsDFR = root:dataStore:
	DFREF originalDFR = GetDataFolderDFR()
	
	string theItem, theSItem
	SetDataFolder rootDFR
	wave/T varList = ListtoTextWave(VariableList("tau*",";",4) + VariableList("UB*",";",4),";")
	SetDataFolder originalDFR
	for(theItem : varList)
		NVAR/SDFR=rootDFR tv = $theItem
		variable/G dsDFR:$theItem = tv
	endfor	
End

Function makeStuff()
	Variable/G root:tau0 = 0
	Variable/G root:tau1 = 1
	Variable/G root:tau2 = 2
	Variable/G root:UB0 = 0
	Variable/G root:UB1 = 1
	Variable/G root:UB2 = 2
	NewDataFolder root:dataStore
End

I don't see how a DuplicateVariable or DuplicateString command would make this easier.