jaya28inside
New member
nih,
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 :
Yang ada prtnnyaan langsung aja kmari.
KLIK
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 SubYang ada prtnnyaan langsung aja kmari.
KLIK