Copy a folder from server to AppData\Local AD logon script

Question

I have a windows 2008 server, and I want make a LogonOn script that will copy a folder(with contents) from "AppData(Roaming)" to AppData Local. I tried this code but it won't work.

this is the code:

Dim objShell, strDesktop, objFSO

Set objShell = CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("AppData\Local\Folder1")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "\\ZEROONE\Profiles\%USERNAME%\AppData\Roaming\Folder1", strDesktop