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 strZipFileName pada 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...!!

3 Response to "Source Code untuk Compress dan Extract File Zip"

Aku mengatakan...

Ijin copas Pak...
maturnuwuuun.....

ESSH NVIDIAS mengatakan...

sangat membantu, sklian mau buat program setup sprti reloaded itu lo, kan keren jdi game gx prlu diinstal tinggl extract rar yg berupa exe, udh beres (y)
top

Sutrisno Saksi mengatakan...

Mas terima kasih. Semoga menjadi ilmu yg bermanfaat.

Poskan Komentar

Bila komentar tidak tampil, silahkan ke page Welcome dan beritahukan melalui email yang tertera disana, kemungkinan komentar anda dianggap sebagai spam, biar nanti admin yang akan merubahnya, Terima kasih.

Related Posts Plugin for WordPress, Blogger...