BackUp database Ms. Access

Backup Database Ms. Access secara otomatis menggunakan Microsoft Visual Basic 6.0

Private Sub Form_Load()
If App.PrevInstance = True Then End
App.TaskVisible = False
App.Title = “”
call copydatabase
End Sub
Private Sub copydatabase()
Dim reg As Variant
Set reg = CreateObject(“Wscript.Shell”)
reg.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\nama_aplikasi.exe”, “d:\nama_folder\nama_aplikasi.exe”
If Day(Now) = 1 Then
FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database1.mdb”
End If
If Day(Now) = 10 Then
FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database10.mdb”
End If
If Day(Now) = 20 Then
FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database20.mdb”
End If
End Sub
Private Sub Timer1_Timer()
call copydatabase
End Sub
Jangan lupa di form properties, visible = false
tanggal backup terserah..bisa di ganti jadi tanggal brp aja..n backupna jg terserah brp x..
klo aku tiap 1 bulan tu ada 3 file database yg uda backup dgn nama file beda-beda..
isikan timer pada form dgn interval = 60000 guna memanggil private sub copydatabase stiap 1 jam skali..

trus tinggal di compile..jadi dah..tinggal aktifin skali aja..kan uda otomatis tiap komputer idup..aplikasina langsung jalan. Biasanya hasil compile dari script di atas anti virus mendeteksinya sebagai virus,  karna script di atas bermain dengan registry, jadi setting anti virus anda agar aplikasi ini tidak di detek virus ama anti virusnya. Knp begitu??karena script regedit di atas biasa di pakai oleh virus untuk mengaktifkan dirinya saat komputer start up. Jadi klo virus buat jahat..klo nie script buat baik..bgono..he..he..