…s…e…r…v…a…s…i…u…s……r…i…n…t…a……@sistemkomputer-undip

19Feb/11Off

VbScript untuk membuat zip file dengan command-line

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

Comments (3) Trackbacks (0)
  1. mantap postingannya pak….
    salam kenal ya……..
    check it out.. KUNJUNGI JUGA INI YA
    BLOG SAYA

  2. saya gak ngerti tolong bantuannya dooong yang jelas dan terperinci

    terimakasih 😀

  3. wahh, bagus sekali mass, pernah di ukur ga, kualiatas kompresinya? di bandingkan dgnn 7zip, winzip, winrar? weight loss natural


Trackbacks are disabled.

Skip to toolbar