#Region "Imports"
Imports System
Imports System.IO
Imports System.IO.Compression
#End Region
Public Sub Main()
Dim FolderPathToZip As String = "C:\HOWTO_SSIS\Prj03\start\"
Dim sArqOrigem As String = "Selenium.txt"
ZipFile.CreateFromDirectory(FolderPathToZip, sArqOrigem)
Dts.TaskResult = ScriptResults.Success
End Sub
'ERROR: Exception has been thrown by the target of an invocation.