kurang lebih sama kali ya,
2010/8/8 Ahmad Qomaruddin <[email protected]> > > > saya juga berhasil kok. kalo mau buat rar untu FE-nya gimana? > > 2010/8/6 Muntahar <[email protected]> > >> >> >> PR lagee nih, soale skriptku yg kemarin tak coba is no problem >> >> 2010/8/6 Bambang Mahfudin <[email protected]> >> >> >>> >>> Pak Muntahar saya sudah install winrar >>> Dengan code yg Bapak berikan, file 'backup.bat' dan folder 'Data_Backup' >>> sudah terbentuk >>> Pada saat saya panggil file tersebut dengan code : >>> >>> Dim retval >>> retval = Shell(CurrentProject.path & "\backup.bat") >>> >>> atau >>> >>> Call Shell("c:\pos\BackUp.bat", 1) >>> >>> kok tidak bisa jalan, tetapi apabila saya klik 2x langsung pada file >>> 'backup.bat' >>> bisa di eksekusi dengan baik ( file ZIP dg tanggal dan jam hari ini >>> terbentuk ) >>> >>> Mohon dibantu.... >>> Terima kasih sebelumnya >>> >>> SalamAccess >>> BambangMahfudin >>> >>> >>> --- In [email protected] <belajar-access%40yahoogroups.com>, >>> Muntahar <eyoun...@...> wrote: >>> > >>> > 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 <ud1...@...> >>> >>> > >>> > > >>> > > >>> > > 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 <eyoun...@... <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 <bamba...@... <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 : ud1...@... <ud13en%40gmail.com> >>> > > blog : ud13en.blogspot.com >>> > > >>> > > >>> > >>> > >>> > >>> > -- >>> > --------------------------------------------- >>> > grapyak-semanak-cluthak >>> > http://djmumun.wordpress.com >>> > http://facebook.com/djmumun >>> > --------------------------------------------- >>> > >>> >>> >> >> >> -- >> --------------------------------------------- >> grapyak-semanak-cluthak >> http://djmumun.wordpress.com >> http://facebook.com/djmumun >> --------------------------------------------- >> > > > > -- > Ahmad Qomaruddin > Sulang Rembang > email : [email protected] > blog : ud13en.blogspot.com > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
