Copy specific file to current directory - Microsoft VBScript runtime error '800a0046' -

how copy specific file current directory : following error:

microsoft vbscript runtime error '800a0046' permission denied 

line :5 char: 1

when running simple copy:

dim fso set fso = createobject("scripting.filesystemobject") dim currentdirectory currentdirectory = fso.getabsolutepathname(".") fso.copyfile "d:\eula.1028.txt", "d:\back up" 

have checked user permission on destination folder?

i didn't noticed fact didn't specified name of file in destination. sholud follows:

fso.copyfile "d:\eula.1028.txt", "d:\back up\eula.1028.txt"

or specify neew different name destination.

angelo.