cuando esta sombreado es que la carpeta contiene arcivos de solo lectura, pero la carpeta en si misma puede no tener dicho atributo tildado.
usa setattr(vbnormal) para setear la carpeta en modo normal, luego puedes usar setattr para volverla a su estado original.
un brebe ejemplo NO FUNCIONAL para ue te des una idea:
Dim Original As VbFileAttribute
Dim Ruta As String
Ruta = "C:\laruta"
Original = getattr(Ruta)
setattr(Ruta, vbnormal)
'.... accion, filecopy por ejemplo....
setattr(Ruta, Original)
eso deberia funcionar.
otra cosa que puedes hacer es un mapeo del directorio quitando todos los atributos de solo lectura, aunque con solo hacerlo en el directorio padre deberias poder copiar un archivo en el.
EDIT:
Se corrigio
setattr(Original,vbnormal) por
setattr(Ruta, Original)gracias juancho77.