sebaiknya backup sekaligus di zip menggunakan winzip, saya ada contoh codingnya
cuma agak banyak....
---- Original Message -----
From: Lilis Suryani ArjaMaya
To: [EMAIL PROTECTED]
Sent: Thursday, 14 June 2007 9:56 AM
Subject: [indoprog-vb] Tips n Tricks Mengcopy/Membackup File dgn CommonDialog
dear programmers,
kali aku coba share gimana cara yg paling sederhana utk membackup database
dlm hal ini pake access, tapi ini berlaku juga utk keperluan file2 lain
yang mau di copy atau dibackup.
pertama-tama buat 3 commandbutton dan 2 commondialog dan 2 label juga 2
textbox
spt biasa :-) copy paste kode dibawah ini,
'----------------------------------------------------------
'-ini fungsi API yg digunakan utk mengcopy file
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal
lpExistingFileName As
String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command3_Click() '--tombol backup
'--koding dibawah ini fungsinya utk membackup file database dari folder
default ke
'--folder tujuan dg menggunakan fungsi API
If txtFileBackup.Text = "" Then
Call MsgBox("Folder Tujuan belum ditentukan", vbInformation, "Folder Tujuan")
Exit Sub
End If
'--txtFileName adalah folder sumber
'--txtFileBackup adalah folder tujuan
'--CSTR maksudnya membackup file dgn nama format tglblnthn dan extensinya
.acct
'--ini terserah programmer mau diganti apa juga bisa
Call BackupFile(txtFileName.Text, txtFileBackup.Text & CStr(Format(Date,
"ddmmyy") & ".acct"),
True)
End Sub
'--ini fungsi utk melakukan backup file database
Function BackupFile(ByVal fileAsli As String, ByVal fileCopy As String, ByVal
fileTimpah As
Boolean) As Boolean
Dim lTemp As Long
lTemp = CopyFile(fileAsli, fileCopy, fileTimpah) '--panggil fungsi API
If lTemp = 0 Then
BackupFile = False
Call MsgBox("Backup Gagal." & vbCrLf & _
"File sudah ada", vbInformation, "Backup Database")
Else
Call MsgBox("Backup Berhasil", vbInformation, "Backup Database")
BackupFile = True
Unload Me
End If
End Function
'--ini utk mengambil file database yg mau di backup dari folder sumber
Private Sub Command1_Click()
'--default folder
CommonDialog1.InitDir = App.Path
'--judul pada dialog open
CommonDialog1.DialogTitle = "Database to Backup"
'--utk menyaring hanya database access aja yg ditampilkan
CommonDialog1.Filter = "Database Access (*.mdb)|*.mdb|"
CommonDialog1.ShowOpen
txtFileName.Text = CommonDialog1.FileName
End Sub
'--ini utk meletakkan file database yg dibackup ke folder tujuan
Private Sub Command2_Click()
CommonDialog2.InitDir = App.Path
CommonDialog2.DialogTitle = "Database Backup"
CommonDialog2.ShowSave
txtFileBackup.Text = CommonDialog2.FileName
End Sub
salam
Lilis Suryani ArjaMaya
__________________________________________________________
Moody friends. Drama queens. Your life? Nope! - their life, your story. Play
Sims Stories at Yahoo! Games.
http://sims.yahoo.com/
[Non-text portions of this message have been removed]
