RE:URGENTE: COMO HACER UN BACKUP DE UNA BASE DE DA
Te he rescatado un codigo antiguo, ya que hoy en dia es raro encontrar una base de datos que coja en un disquete.
Te hará falta un form llamado Mensajes para mostrar el mensaje bus
Private Sub mCopiar_Click()
On Error GoTo Errores
Bus = "Copiando la Base de Datos " & Mid(Fichero, 1, 8)
Mensajes.Show
MousePointer = 11
Mensajes.Refresh
Origen = App.path + "\" + Fichero
Destino = "a:" + Fichero
FileCopy Origen, Destino
Beep
Unload Mensajes
MsgBox "Copia finalizada, retira el Disquete"
Refresh
MousePointer = 0
Exit Sub
Private Sub mRestaurar_Click()
Dim mensaje As String, prg As String
On Error GoTo Errores
Origen = "a:" + Fichero
mensaje = "Fichero a Restaurar : " & Mid(Fichero, 1, 8) & Chr(10) & Chr(13) _
& "Fecha de la copia : " & Format(FileDateTime(Origen), "dddddd") & Chr(10) & Chr(13) _
& "Hora de la copia : " & Format(FileDateTime(Origen), "ttttt")
prg = MsgBox(mensaje, 1)
If prg = 2 Then Exit Sub
Bus = "Restaurando la Base de Datos ..."
Mensajes.Show
MousePointer = 11
Mensajes.Refresh
Destino = App.path + "\" + Fichero
FileCopy Origen, Destino
Unload Mensajes
Beep
MsgBox "Restauración terminada, retira el disquete"
Refresh
MousePointer = 0
Exit Sub
Errores:
If ErrorDisco = 0 Then Resume
Unload Mensajes
MousePointer = 0
Refresh
End Sub