Source Code untuk Compress dan Extract File Zip

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Berikut ini adalah source code yang teman - teman Foxpro Mania bisa gunakan untuk mengkompress file di dalam folder dengan format ZIP. Dan kemudian source code yang bisa digunakan untuk mengekstrak file ZIP ke file aslinya. Selanjutnya kita langsung coba aja. 

&& Source untuk Mengkompress Folder

strFolderName="d:\test\hasil" && Folder yang mau di kompress

strZipFileName="c:\hasil.zip" && Nama File ZIP hasil kompres

IF DIRECTORY(JUSTPATH(strZipFileName))=.f.

 MESSAGEBOX("Folder '"+strZipFileName+"' Tidak ada") 

 RETURN .f.

ENDIF  

IF LOWER(JUSTEXT(strZipFileName))<>"zip"

 strZipFileName=strZipFileName+".zip"

ENDIF

fso = CreateObject("Scripting.FileSystemObject")

ts = fso.OpenTextFile(strZipFileName, 8, .t.)

BlankZip = "PK" + Chr(5) + Chr(6)

For x = 1 to 18

 BlankZip = BlankZip + Chr(0)

ENDFOR

ts.Write(BlankZip)

objShell = CreateObject("Shell.Application")

WshShell = CreateObject("WScript.Shell")

DestFldr=objShell.NameSpace(strZipFileName)

SrcFldr=objShell.NameSpace(strFolderName)

DestFldr.CopyHere(strFolderName)

Isi variable strFolderName dengan lokasi folder di PC yang akan di kompress pada contoh diatas adalah "d:\test\hasil" dan isi variable strZipFileName dengan nama file zip yang digunakan untuk mengkompress file yang berada di strFolderName isi variable strZipFileNamepada contoh di atas adalah "c:\hasil.zip". Selanjutnya setelah berhasil mengkompress Folder, kemudian berikut ini adalah cara untuk mengekstrak file ZIP ke file aslinya :

&& Source untuk Mengekstrak File ZIP
strFolderName="c:\hasil" && Folder untuk menempatkan file yg di ekstrak
strFileName="c:\hasil.zip" && File ZIP yang ingin di ekstrak
objshell = CreateObject("Shell.Application")
objfso = CreateObject("Scripting.FileSystemObject")
If !DIRECTORY(strFolderName) 
 objfso.CreateFolder(strFolderName)
ENDIF 
objshell.NameSpace(strFolderName).CopyHere;
(objshell.NameSpace(strFileName).Items)

Isi variable strFolderName dengan lokasi folder di PC yang akan di gunakan untuk file hasil ekstrak pada contoh diatas adalah "c:\hasil" dan isi variable strFileName dengan nama file zip yang akan di ekstrak pada contoh di atas adalah "c:\hasil.zip". Selanjutnya tinggal kreasi teman - teman Foxpro Mania untuk menempatkan fasilitas ini di aplikasi yang teman - teman buat, bila memang diperlukan.

SELAMAT MENCOBA...!!