Ceriwis

Programming Share, tanya jawab, saling bantu antar programmer dengan berbagai macam bahasa pemrograman.


Mau Pasang Banner/Iklan? Klik disini Buat Compressor sendiri dgn VB.net (Programming) - Ceriwis - Komunitas dan Forum Jual Beli
  #1  
Old 17th January
fgroupindonesia fgroupindonesia is offline
Newbie
 
Join Date: Sep 2015
Posts: 14
Rep Power: 0
fgroupindonesia mempunyai hidup yang Normal
Wink 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
Yang ada prtnnyaan langsung aja kmari.

Spoiler for Silaturahim aja:




Sponsored Links.
Loading...
Sponsored Links.
9Club Situs Judi Online Terpercaya
Sponsored Links
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off



All times are GMT +7. The time now is 08:10 AM.

 

About Us

"Ceriwis Forum is a place to find information in various categories. Be inspired, Be social, Join the Community!"

 

Pasang Iklan

Mau Pasang Iklan? Klik tombol di bawah ini.

Download on App store    Download on Google play
Copyright © 2018