SJ Kay - шаблон joomla Joomla
Wednesday, 02 December 2015 00:00

VB.net Folder Compression

Written by 
Rate this item
(2 votes)

source code vb.net fgroupindonesia.com, source code vb fgroupindonesia.com, source code visual basic fgroupindonesia.com, source code visual basic 2008 fgroupindonesia.com, source code visual basic 2010 fgroupindonesia.com, source code visual basic.net fgroupindonesia.com, mentahan vb.net fgroupindonesia.com, mentahan vb fgroupindonesia.com, mentahan visual basic fgroupindonesia.com, mentahan visual basic 2008 fgroupindonesia.com, mentahan visual basic 2010 fgroupindonesia.com, mentahan visual basic.net fgroupindonesia.com, contoh kode vb.net fgroupindonesia.com, contoh kode vb fgroupindonesia.com, contoh kode visual basic fgroupindonesia.com, contoh kode visual basic 2008 fgroupindonesia.com, contoh kode visual basic 2010 fgroupindonesia.com, contoh kode visual basic.net fgroupindonesia.com, sample code vb.net fgroupindonesia.com, sample code vb fgroupindonesia.com, sample code visual basic fgroupindonesia.com, sample code visual basic 2008 fgroupindonesia.com, sample code visual basic 2010 fgroupindonesia.com, sample code visual basic.net fgroupindonesia.com, kode mentahan vb.net fgroupindonesia.com, kode mentahan vb fgroupindonesia.com, kode mentahan visual basic fgroupindonesia.com, kode mentahan visual basic 2008 fgroupindonesia.com, kode mentahan visual basic 2010 fgroupindonesia.com, kode mentahan visual basic.net fgroupindonesia.com, kode asli vb.net fgroupindonesia.com, kode asli vb fgroupindonesia.com, kode asli visual basic fgroupindonesia.com, kode asli visual basic 2008 fgroupindonesia.com, kode asli visual basic 2010 fgroupindonesia.com, kode asli visual basic.net fgroupindonesia.com, programming vb.net fgroupindonesia.com, programming vb fgroupindonesia.com, programming visual basic fgroupindonesia.com, programming visual basic 2008 fgroupindonesia.com, programming visual basic 2010 fgroupindonesia.com, programming visual basic.net fgroupindonesia.com, bandung vb.net fgroupindonesia.com, bandung vb fgroupindonesia.com, bandung visual basic fgroupindonesia.com, bandung visual basic 2008 fgroupindonesia.com, bandung visual basic 2010 fgroupindonesia.com, bandung visual basic.net fgroupindonesia.com


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.

 

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 Pemprograman VB.net bersama kami disini.

Pendaftaran Kursus Vb.net Programming FGroupIndonesia.com

Read 915 times Last modified on Wednesday, 02 December 2015 03:12
Gumuruh S

Lulusan S1 Soft. Engineering, Universiti Utara Malaysia (UUM). Masih aktif sebagai praktisi teknologi dalam Pembuatan Software, Desain Grafis, sekaligus Bahasa Inggris dan juga sedang mendalami bahasa arab di Ma'had Al-Imarat, Bandung.

Media Sosial

Salah satu cara memudahkan komunikasi menjadi lebih transparan.

Kontak

Jl. Parahyangan no.18,
Komp. Panghegar Permai I,
Ujung Berung, Bandung 40614
Tel: (022) 92800-446 / (022) 95244-964
WA: 0857-95569337 / 0857-21261437
BBM: 7DF95683 / 7CD59179

Email: This email address is being protected from spambots. You need JavaScript enabled to view it. / This email address is being protected from spambots. You need JavaScript enabled to view it. / This email address is being protected from spambots. You need JavaScript enabled to view it.
Top
Active Search Results [Social Submit this] HTTP://WWW.SITUS.WEB.ID Essential SSL