RE:Respaldo recuperación de una Base de Datos echa
Para Copiar
Private Sub mCopiar_Click()
MousePointer = 11
Origen = App.path + "\" + Fichero
Destino = "a:" + Fichero
FileCopy Origen, Destino
Beep
MsgBox "Copia finalizada, retira el Disquete"
MousePointer = 0
Para Restaurar
Private Sub mRestaurar_Click()
Dim mensaje As String, prg As String
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
MousePointer = 11
Destino = App.path + "\" + Fichero
FileCopy Origen, Destino
Unload Mensajes
Beep
MsgBox "Restauración terminada, retira el disquete"
Refresh
MousePointer = 0