Archive files Module

Imports System
Imports System.IO
Imports System.IO.Compression
Imports System.IO.Compression.ZipFile


Module CompressFilesMod
    Public Sub ArchiveNow()
        Try
            Dim xSourcePath As String = "D:\1\files"
            Dim xDesPath As String = "D:\1\files\"
            Dim xZipName As String = "MyArchive.zip"

            Dim xFullDesPath As String = xDesPath + xZipName

            ZipFile.CreateFromDirectory(xSourcePath, xFullDesPath, CompressionLevel.Optimal, False)

        Catch ex As Exception

        End Try

    End Sub
End Module