Copias de Seguridad

Suponemos un formulario donde indicas la ruta origen, el nombre de la base de datos origen, la ruta destino y el nombre de la base de datos destino...
En el evento al hacer click del botón de este formulario escribe el siguiente código:
'Inicio código..
On error goto Copiar_Error
if isnull(RutaOrigen) then
msgobx "Indique la ruta de origen",vbcritical
Exit sub
end if
if isnull(RutaDestino) then
msgobx "Indique la ruta de Destino",vbcritical
Exit sub
end if
if isnull(NombreOrigen) then
msgobx "Indique el nombre de origen",vbcritical
Exit sub
end if
if isnull(NombreDestino) then
msgobx "Indique el nombre de destino",vbcritical
Exit sub
end if
if rutaorigen & "\" & nombreorigen=rutadestino & "\" & nombredestino then
msgbox "No se puede indicar el mismo nombre de origen como destino",vbcritical
Exit sub
End if
if dir(rutaorigen & "\" & nombreorigen)="" then
msgbox "El archivo de origen indicado no existe.",vbcritical
exit sub
end if
if dir(rutadestino & "\" & nombredestino)<>"" then
if msgbox("El archivo indicado como destino ya existe." & vbcrlf & "¿Desea sobreescribirlo?",vbcritical+vbyesno)=vbno then
exit sub
Else
kill rutadestino & "\" & nombredestino
End if
end if
name rutaorigen & "\" & nombreorigen as rutadestino & "\" & nombredestino
Copiar_Exit:
Exit sub
Copiar_Error:
msgbox err.number & vbcrlf & err.description,vbCritical
Resume copiar_exit

Te agradezco el código que me enviaste esta muy bueno, pero tiene una falla.
Copia el archivo a otra carpeta pero el original se borra, como si se lo cortara del destino original al al destino de la copia.
De antemano te sigo agradeciendo