Access - backup, ¿que es lo que falla en este codigo?

amos a ver, tengo un codigo para hacer backups de la base de datos, pero no se bien adaptarlo a mi base de datos, hago un boton de comando, y en el editor de visual basic inserto el siguiente codigo, ¿q falla?

Private Sub CopiaSeg_Click()
On Error GoTo Err_CopiaSeg_Click
' La BD a copiar y la BD que hace la rutina de copia (CopiaS.mdb) han de
estar en el
mismo directorio
Dim stAppName As String
stAppName = "MSACCESS.EXE C:\micarpeta\CopiaS.mdb"
Call Shell(stAppName, 1)
DoCmd.Quit
Exit_CopiaSeg_Click:
Exit Sub
Err_CopiaSeg_Click:
MsgBox Err.Description
Resume Exit_CopiaSeg_Click
End Sub

¿tiene algo q ver esta linea?

Sub Copia()
Dim fs As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\Mis documentos\Nombre.mdb", "c:\directorio\"
End Sub

El código que has proporcionado no hace una copia de seguridad de la base de datos. En su lugar, abre una base de datos de copia y cierra la base de datos actual.

La segunda porción de código que proporcionaste es una forma de hacer una copia de seguridad usando FileSystemObject, pero la ubicación y el nombre de la base de datos deben modificarse para que coincida con la ubicación y el nombre de tu base de datos.

Aquí te proporciono un ejemplo de código que hace una copia de seguridad de una base de datos de Access:


En este ejemplo, la copia de seguridad se guarda en la ruta y con el nombre especificados en la variable `ruta`. Para usar este código, solo tienes que llamar a la subrutina `HacerCopiaSeguridad()` desde un botón de comando en tu formulario.