]]> _ Public Class ScriptMain Inherits UserComponent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub CreateNewOutputRows() ' Get remote files list. Dim filesList() As Object Dim vars As IDTSVariables90 Call Me.VariableDispenser.LockOneForRead(Me.SourceVariable, vars) Try filesList = CType(vars(Me.SourceVariable).Value, Object()) Finally Call vars.Unlock() End Try ' Populate output buffer. For Each fi As IFileInfo In filesList With Me.OutputBuffer Call .AddRow() .Name = fi.Name .FullName = fi.FullName .Size = fi.Size .ModifiedTime = fi.ModifiedTime .IsDirectory = fi.IsDirectory End With Next Call Me.OutputBuffer.SetEndOfRowset() End Sub ' CreateNewOutputRows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean = True Try If String.IsNullOrEmpty(Me.SourceVariable) Then Throw New Exception("Select source variable.") End If Catch ex As Exception result = False errMessage = ex.Message End Try Validate = result End Function 'Validate #Region "Properties" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property SourceVariable() As String Get SourceVariable = m_sourceVar End Get Set(ByVal value As String) m_sourceVar = value End Set End Property ' SourceVariable #End Region ' Properties #Region "Attributes" Private m_sourceVar As String #End Region ' Attributes End Class ' ScriptMain ]]> ScriptComponent_f7fae2c4b73d47859763a095bec8c1b9 true CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea