Private Sub BtnBackup_Click()
Dim nFile As String
nFile = Me.TxtNewMdb & "\" & Me.TxtFileName
If Dir(nFile) <> "" Then
If MsgBox(nFile & " already exists, do you want to overwrite it?", vbExclamation + vbYesNo, "Duplicate File Found") = vbYes Then
Kill Dir(nFile)
Else
Exit Sub
End If
End If
FileSystem.FileCopy "C:\Program Files\Club Manager\ClubData.mdb", nFile
MsgBox "Back up of data complete", vbInformation + vbOKOnly, "Club Manager ©"
Unload FrmBackup
End Sub