FAQ |
Calendar |
SEARCH |
Today's Posts |
|
Programming Share, tanya jawab, saling bantu antar programmer dengan berbagai macam bahasa pemrograman. |
|
Thread Tools |
#1
|
|||
|
|||
Buat Compressor sendiri dgn VB.net (Programming)
Berikut ini ialah salah satu code yang dapat digunakan untuk melakukan Folder Compression, referensi ini dapat diperoleh dari Microsoft MVP Eduardo A. Morcillo. Unduh 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. Caranya? 1. agan kudu punya dulu visual studio. 2. Lalu buat Projectnya >> New Project >> Pilih VB Project dan gunakan Code ini : Code : Code:
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 Spoiler for Silaturahim aja:
Terkait:
|
|
|