(0x800A0046) Permiso Denegado

[m3m0mx]

Hola Tengo el siguientge còdigo:

<%
Function CopyFile(archivo)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.GetFile(archivo)
f2.Copy (destfolder) >>>AQUÎ MARK EL ERROR
'f2.Copy ("C:\tmp\")
End Function
%>

Me resulta un error cuando intento copiar un archivo en el directorio "destfolder" dicho directorio es creado por una funciòn (CreateFolder), sinembargo si yo envìo el archivo a "C:\tmp\" (archivo creado manualmente) no obtengo ningùn error y me pega el (los) archivo(s) que estoy copiando...
Puedo copiar y pegar carpetas completas pero no puedo pegar archivos en la carpeta que stoy creando con el còdigo...

Agradecerìa mucho su ayuda...