Re: [belajar-access] Re: Backup dengan PKZIP

Matur Suwun

2010/12/23 Muntahar <eyoung24@gmail.com>

 

skripnya tak revisi ,,,

cobain yang ini ....
sorry.... belakangan jarang OL

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\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, "Pushd  %~dp0"

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 sukses

2010/12/22 Ahmad Qomaruddin <ud13en@gmail.com>

 

kenapa saya kok gagal waktu jalankan backup.bat dengan script
 
Shell batchku, vbHide

padahal kalo di jalankan langsung dengan dobel backup.bat klik bisa jalan...

erronya :

Cannot open DATA
The system cannot find the file specified
Cannot create DATA_BACKUP\2010-12-22 10-46-22.rar
The syatem cannot find the path specified.

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 belajar-access@yahoogroups.com, Muntahar <eyoung24@...> 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 <ud13en@...>

>
> >
> >
> > 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 <eyoung24@... <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 <bambalid@... <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 : ud13en@... <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 : ud13en@gmail.com
blog : ud13en.blogspot.com

--

---------------------------------------------
   grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------

 

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia

email : ud13en@gmail.com
blog : ud13en.blogspot.com

--
---------------------------------------------
   grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
blog : ud13en.blogspot.com

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___