Codigo para backup, ¿q falla?

rave
26 de Marzo del 2004
Vamos 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:micarpetaCopiaS.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 documentosNombre.mdb", "c:directorio"
End Sub


Gracias!