[Kompres]Backup Data dengan Foxpro

Bingung judul yag cocok apa..hehe😀 yang jelas hasil backup data terkompres🙂 gitu aja deh


IF EMPTY(thisform.mDir.Value)
MESSAGEBOX("Anda belum menentukan direktori tujuannya",0+16,"Kesalahan")
thisform.mDir.SetFocus()
ELSE
mDir = thisform.mDir.Value
pat=SYS(5)+SYS(2003)+"\tabelku"

*RUN 'xcopy /s/e/y tabelku\*.* "&mDir"'

SET LIBRARY TO LOCFILE("vfpcompression.fll")
ZipOpen(thisform.nmfile+'.ZIP',thisform.pilihdir, .F.)
ZipFolder(pat, .F.)
ZipClose()
SET LIBRARY TO
MESSAGEBOX("Data Telah Selesai Di Backup!",0+64,"Pesan",2000)

ENDIF

oya untuk koding diatas itu sama seperti sebelumnya

cuma ada beberapa tambahan berupa property seperti

thisform.nmfile : untuk nama hasil kompres

thisform.pilihdir : untuk meletakkan lokasi hasil backup/kompres

untuk mendapatka file vfpcompression.fll bisa download

http://www.mediafire.com/?810i2jb1kzp8js2

Ok selamat mencoba moga sukses selalu yaa

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: