Error 800A0046 Permiso denegado en objeto CopyFile

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