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.