derp

    Function CopyFiles(strSourceDir, strDestDir)
            On Error Resume Next
            Set lfsObject = CreateObject("Scripting.FileSystemObject")
            Set lFolder = lfsObject.GetFolder(strSourceDir)

            'If strSourceDir  "" then
                    Set NewFolder = lfsObject.CreateFolder(strDestDir)
    '               WScript.Echo "Copy Source: " & strSourceDir & " Dest: " & strDestDir

                 'Process contained files first
                 Set lFileList = lFolder.Files
                 For Each lFile in lFileList
                      lfsObject.CopyFile strSourceDir & "\" & lFile.Name, strDestDir & "\" & lFile.Name
                 Next

                 'Process subdirectories
                 Set lSubFolders = lFolder.SubFolders

                 For Each lSubFolder in lSubFolders
                    NewSource = strSourceDir & "\" & lSubFolder.Name
                    NewDest   = strDestDir & "\" & lSubFolder.Name
                    CopyFiles NewSource, NewDest
                 Next

            'End If

            Set lfsObject = Nothing
            Set lFileList = Nothing
            Set lFolder = Nothing
            Set lFile = Nothing
    End Function

    If IsMember("templatestest") Then
    string strSourceDir
       set strSourceDir = "C:\test\test"
   string strDestDir
   set strDestDir = "C:\Users\%username%\AppData\Roaming\Microsoft\Templates"
      Call CopyFiles(strSourceDir, strDestDir)
    End If