Dear Expert,
I want to zip the backup file in target folder so how to do it, the code below is for backup the database in the target folder.
I want to zip the backup file in target folder so how to do it, the code below is for backup the database in the target folder.
Code:
Private Sub Form_Load()
con.Close
End Sub
Private Sub cmdBackup_Click()
Set rs = Nothing
Set con = Nothing
If Dir$(App.Path & "\Backup", vbDirectory) = "" Then
MkDir (App.Path & "\Backup")
End If
Dim MyDateTime As String
MyDateTime = Format(Date, "dd-mm-yyyy") & Format(DateTime.Time, "HH mm AMPM")
FileCopy App.Path & "\Test.mdb", App.Path & "\Backup\Test " & MyDateTime & ".mdb"
MsgBox ("Backup completed")
End Sub