Backup aplikasi adalah kegiatan wajib kita lakukan bilamana ingin memperbaiki aplikasi kita. Ketika terjadi error atau ada kerusakan aplikasi, bisa kita restore kembali.

Menggunakan kode ini, Anda bisa melakukan backup aplikasi otomatis melalui sistem Anda dengan sekali klik.

Buat form baru dengan nama Back Up. Kemudian tambahkan tombol dengan nama BackupApp.




Tambahkan juga dua TextBox dengan nama [FromPath] dan [ToFolder]

Buat Folder dengan nama BackupDB di satu root dengan aplikasi utama.

Pada tombol BackupApp event On Click, ketik copy paste procedure ini:


Private Sub BackupApp_Click()

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

    FromPath = [FromPath]
    ToPath = [ToFolder] & "\BackupDB_" & Day(Now) & Month(Now) & Year(Now) & Hour(Now) & Minute(Now) & Second(Now)  

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If

    FSO.CopyFolder Source:=FromPath, Destination:=ToPath
    MsgBox "Direktori file backup database: " & ToPath, , "Backup Database Sukses !"

End Sub


Menjalankan aplikasi :

Isi path lengkap aplikasi Anda di TextBox: [FromPath]
Isi path lengkap folder tujuan backup aplikasi Anda di TextBox: [FromPath]

Klik tombol BackupApp, dan liat hasilnya.

Dengan cara yang sama, kode ini juga dapat digunakan untuk membackup Database Anda.

Bila Anda menyukai ini, share ke yang lain, klik disini :