Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Senin, 10 Desember 2012

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

0 komentar:

Posting Komentar