(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...

[Muzztein]

que para si haces esto?

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



it's called debugin by the way.

[trasgukabi]

permisos? en mi firma tienes un enlace.

[m3m0mx]

Gracias, pero aún con el "debuggin" no funciona, la ruta y nombre de la carpeta creada es correcto pero no pega el archivo copiado por el còdigo, no se si exista alguna forma de poder asignarle los permisos a la carpeta en el momento q son creados por el còdigo...

[Muzztein]

hasta donde yo se ...nops
eso como que se da a nivel de Sistema operativo.

[u_goldman]

f2.Copy (destfolder)

De donde obtienes el valor de destfolder y cómo lo estás obteniendo? a lo mejor es un simple cambio de directorio lo que te falta

f2.Copy (destfolder & "\")