Bahasa VB untuk ZIP

Ketika membuat suatu software, kadang-kadang kita ingin software kita bisa melakukan kompresi file dalam bentuk zip (misal : software yg dikembangkan memberi perintah untuk melakukan backup file suatu folder tertentu lalu folder tersebut dikemas dalam bentuk zip file).

Untuk melakukan ini, kita bisa memanfaatkan vbScript yang dapat dieksekusi melalui command-line windows. Langkah-langkahnya adalah :

buat file dengan nama misal zip.vbs
Adapun isi dari script file ini adalah sebagai berikut

‘Deklarasi Argumen untuk input folder dan file zip.
Set objArgs = WScript.Arguments
InputFolder = objArgs(0)
ZipFile = objArgs(1)

‘Membuat file zip kosong & diisi dengan folder yang akan dibackup
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)

Set objShell = CreateObject("Shell.Application")

Set source = objShell.NameSpace(InputFolder).Items

objShell.NameSpace(ZipFile).CopyHere(source)

‘Sleep
wScript.Sleep 2000

Selanjutnya vbScript ini dapat dieksekusi melalui command-line dengan perintah :
“CScript zip.vbs nama_folder_yg_dibackup direktori_tujuanbackup/nama_file.zip”

Contoh : “CScript zip.vbs D:\Data E:\Backup\Data.zip”.

Selamat mencoba....