'## Här kallar du på kopieringsprocessen.
' Path innehåller min startmapp och filnamn "C:\kbonus.mdb"
' Path_Backup innehåller slutmapp. "C:\Backup\kbonus.mdb" Notera att du måste ange filnamnet

Private Sub Command1_Click()
'Returenerar true om kopieringen gick bra annars false
If HardCopy(Path, Path_Backup) = True Then
MsgBox "Kopieringen lyckades", vbInformation
Else
MsgBox "Kopieringen misslyckades", vbExclamation
End If
End Sub