Aqui esta otra manera, es con un CommonDialog y te permite guardar la base de datos con el nombre que tu quieras, en cualquier unidad/directorio disponible (en este caso por ejemplo, ya te coloca el filtro q es mdb)
Private Sub Command1_Click()
Dim Ruta As String
Me.CommonDialog1.DefaultExt = ".mdb"
Me.CommonDialog1.Filter = "Access 97 (*.mdb)|*.mdb"
Me.CommonDialog1.ShowSave
Ruta = Me.CommonDialog1.FileName
If Ruta <> "" Then
FileCopy MiRuta & App.Path & "\NombreBaseDatos.mdb", Ruta
MsgBox "La Base de Datos ha sido respaldada como: " & Chr(13) & Ruta, vbInformation
End If
End Sub
Salu2
