alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/587d5842c1d770a0508b4568/kompress-via-visual-studio
Kompress via Visual Studio
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.
Kompress via 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: