Imports System.IO
Imports Shell32
''' <summary>
''' Exemple
''' Dim mesdoc As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\mesdoc.zip"
''' Dim folder As New FolderBrowserDialog
''' If folder.ShowDialog() = Windows.Forms.DialogResult.OK Then
''' CompressFolder(mesdoc, folder.SelectedPath)
''' End If
''' </summary>
''' <param name="CompressedFileName"></param>
''' <param name="FolderToCompress"></param>
''' <remarks></remarks>
Sub CompressFolder(ByVal CompressedFileName As String, ByVal FolderToCompress As String)
Dim B(21) As Byte
B(0) = 80 : B(1) = 75 : B(2) = 5 : B(3) = 6
File.WriteAllBytes(CompressedFileName, B) 'Make an empty PKZip file.
Dim SH As New Shell
Dim SF As Folder = SH.NameSpace(CompressedFileName)
Dim DF As Folder = SH.NameSpace(FolderToCompress)
SF.CopyHere(DF)
End Sub