Copy to %USERPROFILE%\data\local

I have a script that i can copy data to the local location.
However i need to copy data to %userprofile%\appdata folder
 
Const OverWriteFiles = TrueSet objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\DiskImages\AppData" , "c:\dest" , OverWriteFiles
 
if i try to change the script:
objFSO.CopyFolder "C:\DiskImages\AppData" , "%USERPROFILE%" , OverWriteFiles
i get no error but do not see my files in c:\users\%username%\appdata
If i try to open %USERPROFILE% from run window it resolves to c:\users\%username%
Thank you.


Search the forum or read the documentation for the ExpandEnvironmentStrings method of the WScript.Shell object.

dim objshell,userfilefolder,fs
const overwrite=true
set objshell=createobject("wscript.shell")
userfilefolder=objshell.expandEnvironmentStrings("%userprofile%")
'msgbox userfilefolder
set fs=createobject("scripting.filesystemobject")
fs.copyfolder "C:\diskimages\appdata",userfilefolder&"\",overwrite
set fs=nothing
set objshell=nothing