Script berikut menggunakan Winrar, bukan PKZIP
Option Compare Database
Sub backup_data()
'Menggunakan Winrar untuk backup folder data
'Diasumsikan di pc dah terinstall Winrar
'di folder C:\Program Files\WinRAR
Dim batchku, commandku, RarKu As String
batchku = CurrentProject.Path & "\backup.bat"
RarKu = Format(Now(), "yyyy-mm-dd h-mm-ss") & ".rar"
commandku = "rar a " & Chr(34) & "DATA_BACKUP\" & RarKu & Chr(34) _
& " " & Chr(34) & "DATA" & Chr(34)
Prepare (batchku)
Open batchku For Append As #1
Print #1, "@setlocal"
Print #1, "@echo off"
Print #1, "set path=" & Chr(34) & "C:\Program Files\WinRAR\" & Chr(34) &
";%path%"
Print #1, "cd " & Chr(34) & CurrentProject.Path & Chr(34)
Print #1, commandku
'Print #1, "pause"
Close #1
Shell batchku, vbHide
End Sub
Sub Prepare(Sfile As String)
On Error Resume Next
MkDir CurrentProject.Path & "\DATA_BACKUP"
Kill Sfile
End Sub
Semoga bisa dijadikan referensi
2010/8/2 Bambang Mahfudin <[email protected]>
>
>
> Bapak Moderator dan Accessers....
>
> Saya bikin program di access 2003 yg menggunakan metode FE dan BE. Semua
> tabel berdiri sendiri dalam sebuah MDB, jadi satu tabel satu MDB. Dan saya
> kumpulkan dalam satu folder misal 'DATA'
> Yang saya harapkan adalah membackup folder 'DATA' tsb ke folder misal
> 'DATA_BACKUP'
>
> Problem :
> Bagaimana perintah DOS-nya membuat backup folder 'data' tsb dalam bentuk
> ZIP dg menggunakan PKZIP dan nama file hasil ZIP nya berupa tanggal. Misal
> 01092010.ZIP, 25122010.ZIP dll... Atau dipermudah dg nama yg urut misal
> 0001.ZIP , 0002.ZIP , dll...
>
> Jadi perintah DOS tsb akan saya simpan dalam extensi BAT dan dipanggil
> lewat menu
>
> Mohon petunjuk atau saran-nya, terima kasih sebelumnya.
>
> SalamAccess
> BambangMahfudin
>
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------
