STEKOM Semarang

Biasanya diperlukan Backup data pada database kita agar data terakhir selalu terselamatkan. Banyak cara untuk melakukam proses backup ini. Biasanya dengan bantuan WINZIP atau WINRAR.

Nah Sekarang bagaimana caranya agar kita dapat membackup data kita tanpa menjalankan WINZIP dari luar ? tetapi langsung dengan coding tapi hasilnya langsung bisa jadi ZIP.

berikut adalah linknya !

http://www.sweetpotatosoftware.com/SPSB ... ession.zip

Sample cara makainya :

*!* Example 1
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?ZipFileQuick("C:\MyFile.txt")
SET LIBRARY TO

*!* Example 2
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?ZipFolderQuick("C:\MyFolder")
SET LIBRARY TO

*!* Example 3
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?UnzipQuick("C:\MyFile.zip", "C:\")
?UnzipQuick("C:\MyFolder.zip", "C:\")
SET LIBRARY TO

*!* Example 4
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?ZipOpen("C:\MyZipFile.zip", "C:\", .F.)
?ZipFile("C:\SomeFile.txt", .F.)
?ZipClose()
SET LIBRARY TO

*!* Example 5
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?UnzipQuick("C:\MyZipFile.zip","C:\",.F.)
SET LIBRARY TO

*!* Example 6
SET LIBRARY TO LOCFILE("vfpcompression.fll")
?ZipOpen("C:\MyZipFile.zip", "C:\", .F.)
?ZipFolder("C:\MyFolder", .F.)
?ZipClose()
SET LIBRARY TO

*!* Example 7
SET LIBRARY TO LOCFILE("vfpcompression.fll")
CLEAR
lcOriginal = REPLICATE("Visual FoxPro Rocks!",100)
?"Original Length: " + TRANSFORM(LEN(lcOriginal))
?
lcCompressed = ZipString(lcOriginal)
?"Compressed: " + lcCompressed
?"Compressed Length: " + TRANSFORM(LEN(lcCompressed))
?
?"Length Savings: " + TRANSFORM(LEN(lcOriginal) - LEN(lcCompressed)) + " bytes"
?
lcUncompressed = UnzipString(lcCompressed)
*!* ?"Uncompressed: " + lcUncompressed
?"Uncompressed Length: " + TRANSFORM(LEN(lcUncompressed))
?"Equals Original: " + IIF(lcUncompressed == lcOriginal, "YES", "NO")
IF !(lcUncompressed == lcOriginal)
EXIT
ENDIF
SET LIBRARY TO


Selamat Mencoba...

Halo bung,,,, ditunggu2 baru nongol sekarang...
Met gabung aja

Gimana nih bos...

Forum kita sepi juga yah... apa mungkin situs kita ini belum di geber di kampus..... harus sering sering nih bos.... saran saya sih agar forum kita nggak sepi :

1. Suruh tiap mahasiswa membuat pertanyaan sekitar matakuliah (misal VFP) selain lewat bangku kuliah bisa lewat web ini.
2. Suruh mahasiswa cari beberapa modul matkul tertentu via web stekom

Cos mahasiswa stekom mungkin jarang ke web stekom....

Tks. tipsnya ya. Sebagian udah coba...

Rekan2 yang mo tanya tentang VF bisa langsung ke rekan kita ini, abis dia pakar bgt ma VF ...