Mover archivos o carpetas

[Chaqueto]

¿Cómo hacer para que al mover una carpeta con archivos y subcarpetas dentro, de un disco a otro, no dé el error '70' en tiempo de ejecución (Permiso Denegado) si al utilizar la misma función (FileSystemObject.MoveFolder()) dentro del mismo disco, no pincha?.
Adjunto el sub.
Sub MOVER(ORIG As String, DEST As String) 'ORIG y DEST son las rutas con la \ final
Dim C As String
C = ""
C = Dir(ORIG & "*.", vbDirectory) 'si ORIG tiene sub carpetas SON C y mueve esas C
Do While C <> ""
If C <> "." And C <> ".." Then
fs.MoveFolder ORIG & C, DEST & C
End If
C = Dir
Loop
End Sub
Gracias.

[aldo1982]

Eso Debe Ser Por Los Permisos, Pone Un On Error Resume Next A Dicho Error.
Salu2

[Chaqueto]

Claro, eso evitaría que el programa pinche, pero no estaría moviendo la carpeta, que es lo que estoy buscando. Ahora, eso de los permisos, si con origen y destino puedo ejecutarlo en cualquiera de los discos, porqué pincha de uno a otro?? los permisos de los dos son de control total.