Private Sub BackupDB_Click()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
''EDIT PATH DISINI:
FromPath = "D:\Sistem\Aplikasi\.......mdb"
ToPath = "D:\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
Rgds
- sgt -
Private Course
http://accessjuminten.wordpress.com
Pada tanggal 29/05/15, Suryadi isu suryadi.arimbi@yahoo.com
[belajar-access] <belajar-access@yahoogroups.com> menulis:
> Para master ada yg punya contoh aplikasi buat copy database,misalkan ada
> aplikasi databasenya terpisah,database tersebut di copy ato d duplikasi
> menggunakan command dari aplikasi,
> Bagi yang punya mohon share dong
> Saya mau pake buat duplikasi database otomatis krana database sering rusak
> klo konputer mati secara tiba2,sehingga data masih bisa d selamatkan krn ada
> copynya
> Thanks
> Suryadi
>
>
> Dikirim dari Yahoo Mail pada Android
>
>
>
Posted by: Tigis <seegetphe@gmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar