Synergyx,

Use this in SQL 2008:

Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Runtime

<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _

<System.CLSCompliantAttribute(False)> _

Partial Public Class ScriptMain

Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase

End Class

Enum ScriptResults

Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success

Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure

End Enum

Public Class ScriptMain

Public Sub Main()

Dim InFolder, InFileType, OutFileName, OutExecutable, OutSubject, OutFolder, OutMessage As String

Dim FileDate, strDay, strMonth, strYear As String

InFolder = Trim(CStr(Dts.Variables("User::InFolder").Value))

OutFolder = Trim(CStr(Dts.Variables("User::OutFolder").Value))

InFileType = Trim(CStr(Dts.Variables("User::InFileType").Value))

strDay = CStr(Day(Now))

strMonth = CStr(Month(Now))

strYear = CStr(Year(Now))

If Len(strDay) = 1 Then

strMonth = "0" + strDay

End If

If Len(strMonth) = 1 Then

strMonth = "0" + strMonth

End If

FileDate = strYear + strMonth + strDay

OutFileName = "Archive" + FileDate + ".zip"

OutExecutable = " a -tzip """ + OutFolder + OutFileName + """ """ + InFolder + "*." + InFileType + """"

OutSubject = "Attached Zipped Files:- " + OutFileName

OutMessage = "Add your message here"

Dts.Variables("User::OutExecutable").Value = OutExecutable

Dts.Variables("User::OutFileName").Value = OutFolder + OutFileName

Dts.Variables("User::OutSubject").Value = OutSubject

Dts.Variables("User::OutMessage").Value = OutMessage

Dts.TaskResult = ScriptResults.Success

End Sub

End Class