Visual Basic - Para los que tienen problemas con el FileCopy

On error goto NoCopia

'El origen de tu base de datos, es inamobible:

origen = App.Path & "\Bd\bd.mdb"

'En mi caso, tengo mi base de datos en la carpeta "Bd" y mi base de datos se llama "bd.mdb".

'Ahora el destino

destino="C:\backup.mdb"

'Esta ruta la puedes cambiar poniendo un DirListBox y un DriveListBox, eso lo dejo a tu imaginacion

'Ahora como copiar el archivo

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile origen, destino

    MsgBox "La copia se realizó con exito", vbInformation, "Copia realizada"

exit sub

NoCopia:

    If Err.Number > 0 Then

        MsgBox Err.Number & " " & Err.Description, , "Error al copiar archivo"

        Screen.MousePointer = vbDefault

        Err.Clear

        Exit Sub

    End If