Scusa ho sbagliato i tag
codice:
Private Sub cmdcopiadb_Click()
Dim risposta As Integer
  risposta = MsgBox("Si è scelto di copiare il database nella cartella C:\Programmi\Tuacartella\Altracartella!." & vbCrLf & "" & vbCrLf & _
   "Copiare il database?", vbYesNoCancel + vbQuestion, "DBcalc")
  If risposta = vbYes Then
     Dim fso As Variant
    Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CopyFile "C:\Programmi\Cartella\database.mdb", "c:\Programmi\Cartella\Altracartella\database.mdb"
  Set fso = Nothing
  MsgBox "Il database è stato copiato con successo nella cartella C:\Programmi\Cartella\Altracartella!", vbInformation, " DBCalc"
 Exit Sub
End If
  If risposta = vbNo Then
   Exit Sub
  End If
  If risposta = vbCancel Then
   Exit Sub
  End If
End Sub
Ciao