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
