Thanks so much. It does seem to work, but now I get a permission denied when copying. Why would that be?
dim WSHShell, objFSO, desktop, pathstring, Rootpath, TemplatePath
Set WSHshell = CreateObject("WScript.Shell")
set objFSO=CreateObject("Scripting.FileSystemObject")
desktop =...