Error 800A0046 Permiso denegado en objeto CopyFile

[anunezl]

Hola a todos,
Tengo un problema al intentar copiar un archivo con el objeto CopyFile, el codigo que genere es el siguiente:

set fso = wscript.createobject("Scripting.FileSystemObject")
fso.CopyFile strRutaCompleta, strRutaCompleta, true

en donde strRutaCompleta es la ruta origen y strRutaCompleta es la ruta destino. El error que me aparece es con el codigo 800A0046 Permiso denegado. Ya revise los permisos de escritura en la ruta destino y no tienen ningun problema pero al ejecutar el script no me permite realizar la copia. Alguien puede ayudarme??

[luciano]

Hola es posible que estés intentando copiar archivos del sistema ( dan permiso denegado )

Lo que podrías hacer es recorrer el directorio copiando archivo por archivo, si te da error 70 , lo salteás y seguis con los restantes

saludos

[anunezl]

Hola
Los archivos que estoy intentando copiar son .xml no son del sistema. Cuando lo hago de forma manual sí puedo copiarlos pero con un script vbs me marca el error, de hecho intente hacerlo uno por uno y no lo copia, el motivo de usar un script es porque estoy utilizando un trigger.
Saludos

[jllopezgalvez]

A mi me esta pasando lo mismo con el MoveFolder:
objFSO.MoveFolder ".\Errores entrada" , ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango

---------------------------
Windows Script Host
---------------------------
Secuencia de comandos:
Línea: 100
Carácter: 2
Error: Unknown Error
Código: 800A0046
Origen: (null)

------------------------------------------

[jllopezgalvez]

Solucionado a lo ingenioso:

'--->Funciona pero es demasiado lento.
'objFSO.CreateFolder ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango
'objFSO.CopyFolder ".\Errores entrada", ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango
'objFSO.DeleteFolder ".\Errores entrada"



'---------- Ni puto caso el xcopy.
'source = ".\Errores entrada\*"
'destination = ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango
'objShell.run "xcopy source destination /R /Y /E", 0, true



'----------- No existe el objFSO.Move
'----------- La barra final en el destino indica que la carpeta ya existe. Si no, da error de permisos.
objFSO.CreateFolder ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango
objFSO.MoveFolder ".\Errores entrada\*" , ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango & "\"
objFSO.MoveFile ".\Errores entrada\*" , ".\Historico\Errores Entrada " & dia & "-" & mes & "-" & ango & "\"
objFSO.DeleteFolder ".\Errores entrada"
-----------------------------------------------------------------
Que de vueltas hay que dar... hay que joderse.... 3 horas para mover una puñetera carpeta.
Lo del Movefolder y Movefile no esta muy bien documentado en internet...