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
---------------------------------------------
