Public Sub Main()
		'
		' Add your code here
        '
        Dim dtsapp As Application = New Application()
        Dim pInfos As PackageInfos = dtsapp.GetPackageInfos("\\Production Jobs", "server1", Nothing, Nothing)
        Dim pkg As Package
        Dim mFileOut As String
        For Each pInfo As PackageInfo In pInfos
            If pInfo.Flags = DTSPackageInfoFlags.Package Then
                pkg = dtsapp.LoadFromSqlServer("Production Jobs\" & pInfo.Name, "server1", Nothing, Nothing, Nothing)
                mFileOut = "J:\A2I SSIS and RDL Files\SSIS\" & pkg.Name & ".xml"
                dtsapp.SaveToXml(mFileOut, pkg, Nothing)
            End If
        Next
        pkg = Nothing

        Dts.TaskResult = Dts.Results.Success
	End Sub