;

Welcome, Guest. Please login or register.
Did you miss your activation email?

Username: Password:
Pages: [1]   Go Down

Author Topic: Compressor alternatif (Code VB.NET)  (Read 114 times)

gumuruh

  • Cabin Crew
  • *
  • Keong: 0
  • Offline Offline
  • Posts: 5
Compressor alternatif (Code VB.NET)
« on: January 17, 2017, 09:21:01 am »

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: [Select]
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.

Silaturahim aja
KLIK
[/SPOILER]
Logged
Pages: [1]   Go Up