saya menulis script tsb sbg bahan buat p bambang, dengan asumsi berguna utk membackup folder "DATA" yang berisi BE hasil backupan berupa 1 file terkompressi (dgn winrar) yang tersimpan dlm folder "DATA_BACKUP" kerjanya kurang lebihnya begini : 1. membuat folder "DATA_BACKUP", (bila blm ada) 2. menghapus file backup.bat, yang satu folder dgn FE, (bila ada) 3. Menulis ulang file "backup.bat"
"backup.bat" berisi DOS commandline untuk melaksanakan proses backup dgn rar.exe hasil script open batcku for append as #1 dst sampe close #1 nantinya menghasilkan file backup.bat yang kurang lebihnya spt ini, tergantung kapan skrip dijalankan : @setlocal @echo off set path="C:\Program Files\WinRAR\";%path% cd "D:\Desktop\Inject_en" rar a "DATA_BACKUP\2010-08-02 16-30-02.rar" "DATA" kemudian perintah under dos tsb dijalankan oleh FE, dgn perintah shell Mengenai keterbatasan pkzip, saya kurang paham (lum pernah coba) kalo pake winrar, nggak ada masalah cuman saya menggunakan chr(34) untuk mengatasi hambatan Longpath. semoga membantu. 2010/8/3 Ahmad Qomaruddin <[email protected]> > > > mas muntahar, bisa dijelaskan tentang script file asal yang dibuat rar-nya, > file yang mana? file BE atau FE atau bisa dua-duanya? > > > On 8/2/10, Muntahar <[email protected] <eyoung24%40gmail.com>> wrote: > > 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] <bambalid%40gmail.com>> > > > >> > >> > >> 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 > > --------------------------------------------- > > > > -- > Ahmad Qomaruddin > Sulang Rembang > email : [email protected] <ud13en%40gmail.com> > blog : ud13en.blogspot.com > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
