Backup a base de datos en access

[pandobox]

Hola amigos, me he encontrado en una web de access este codigo para crear un backup a la DB mediante un boton de comandos, el detalle es que al hacerlo pro primera vez me funciona bien, cuando le doy click por segunda vez al boton que me ejecuta el codigo me da error pues por lo que veo no sobreescribe la DB en la carpeta "backup"

si alguien sabe como solucionarlo, mis agradecimientos de antemano


Aqui el codigo que uso:

Código PHP:

  Option Compare Database 
Option Explicit 
Private Declare Function CopiaBase Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 
 
 
 
'Ahora supongamos que el boton de comando desde el que 
'quieres llamar a la copia , se llama Comando0 
'Bastaria con 
 
Private Sub Comando0_Click() 
If Len(Dir("C:\Temp\Base.mdb")) = 0 Then 
 MsgBox "No existe la MDB a copiar. No se puede realizar la copia.", vbCritical, "AVISO" 
 Exit Sub 
End If 
If Len(Dir("C:\Temp\Backup\", vbDirectory)) = 0 Then 
 MsgBox "No existe el directorio destino.", vbCritical, "AVISO" 
 'le creamos 
 MkDir "C:\Temp\Backup\" 
End If 
CopiaBase "C:TempBase.mdb", _ 
"C:TempBackupBase1.MDB", 0 
End Sub  
   

[Taribo007]

Te da algun error concreto??? No obstante, aqui tienes otras formas de hacerlo, del amigo Marciano:

Respaldo

Un saludo