VB.net Folder Compression

Visual Basic.NET

Berikut ini ialah salah satu code yang dapat digunakan untuk melakukan Folder Compression, referensi ini dapat diperoleh dari Microsoft MVP Eduardo A. MorcilloUnduh disini.

Didalam ZIP tersebut, program utamanya ialah membuat DirectoryInfo object yang menjadi parent directory. Dengan DirectoryInfo object maka  GetDirectories method dapat melakukan iterasi setiap subdirectory dari parent.

Untuk setiap subdirectory, program ini pula menambahkan “.zip” ke nama subdirectory. Lalu sebuah CompressedFolder object dibuat untuk membungkus Zip file beserta subdirectory ke dalamnya.

Akhir sekali, program akan menampilkan list subdirectory yang berhasil dicompress.

 

Berikut kutipan Code nya:

Private Sub btnZip_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnZip.Click
Dim di As New DirectoryInfo(txtFolder.Text)
Dim txt As String = “”

For Each sub_di As DirectoryInfo In di.GetDirectories()
Dim file_name As String = sub_di.FullName & “.zip”
Using cf As New CompressedFolder(file_name)
txt &= vbCrLf & sub_di.FullName
cf.CompressFile(sub_di.FullName)
End Using
Next sub_di

txtFolders.Text = txt.Substring(vbCrLf.Length)
End Sub

 

—–

Ayo daftarkan segera menjadi peserta training / kursus pemrogaman bersama kami disini.

Related Articles