I Used The Code Below For My Restore Button To Restore My Application But I Receive An Error "Permission Denied" When I Run It. Can Anyone Please Help Me On What To Do To Rectify The Error.

See more:

VBA

Private Sub res_button_Click()


Dim sourcefile As String
sourcefile = "C:\Users\Peter\Desktop\new access templates\db backups - please do not remove\Registry Data Entry System_backup_2014_7_5.mde"
Dim destinationfile As String

destinationfile = CurrentProject.FullName
'Restore the database from a backup copy.

If Dir(destinationfile) <> "" Then
Kill destinationfile
End If
FileCopy sourcefile, destinationfile
MsgBox ("Database Restoration Successful")
'End If

End Sub