Bp Muntahar & Bp jkssbma, terima kasih atas petunjuknya. Akan saya coba dahulu......
Pertanyaan untuk Bp Muntahar : Apa isi perintah dalam ' backup.bat ' pada baris ( batchku = CurrentProject.Path & "\backup.bat" ) Secara kebetulan di internet saya menemukan cara mengambil tanggal hari ini untuk dijadikan nama sebuah file. Saya tulis link-nya disini mungkin berguna bagi warga millis lainnya : http://www.intelliadmin.com/index.php/2007/02/create-a-date-and-time-stamp-in-your-batch-files/ Hanya masalahnya kalau proses kompresi menggunakan PKZIP dijalankan under DOS, maka setelah di extract nama2 file yg melebihi 8 character otomatis di rename dg tambahan angka seperti ~1 atau ~2. Misal : MasterPembelian.MDB menjadi Master~1.MDB. Ada solusi lebih baik agar nama2 file tidak berubah pada saat di-extract kembali, kecuali menjadikannya maximum 8 character :D Salam Access BambangMahfudin ----- Original Message ----- From: Muntahar To: [email protected] Sent: Monday, August 02, 2010 5:32 PM Subject: Re: [belajar-access] Backup dengan PKZIP 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 ---------------------------------------------
