_ _ _ _ _ Public Class ScriptMain Inherits UserComponent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub CreateNewOutputRows() Dim filesCount As Integer = m_files.Length For fileIndex As Integer = 0 To filesCount - 1 Dim fi As FileInfo = New FileInfo(m_files(fileIndex)) With Me.OutputBuffer Call .AddRow() .Attributes = fi.Attributes .CreationTime = fi.CreationTime .Extension = fi.Extension .FullName = fi.FullName .LastAccessTime = fi.LastAccessTime .LastWriteTime = fi.LastWriteTime .Name = fi.Name .Length = CULng(fi.Length) End With Next Me.OutputBuffer.SetEndOfRowset() End Sub ' CreateNewOutputRows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub PreExecute() Call MyBase.PreExecute() ' Get search path. Dim searchPath As String If Me.IsSearchPathVariable Then searchPath = GetVariable_(Me.SearchPathVariable).ToString() Else searchPath = Me.SearchPath End If ' Get search specification. Dim pathSpec As String = Path.GetFullPath(searchPath.Substring( _ 0, _ 1 + searchPath.LastIndexOfAny("\\/".ToCharArray()))) Dim fileSpec As String = Path.GetFileName(searchPath) Dim fullSpec As String = Path.Combine(pathSpec, fileSpec) ' Get search option. Dim searchOpt As SearchOption If Me.IncludeSubfolders Then searchOpt = SearchOption.AllDirectories Else searchOpt = SearchOption.TopDirectoryOnly End If If File.Exists(fullSpec) Then ' Specified file. m_files = New String() {fullSpec} ElseIf Directory.Exists(fullSpec) Then ' Specified folder. m_files = Directory.GetFiles(fullSpec, "*", searchOpt) Else ' Specified files. m_files = Directory.GetFiles(pathSpec, fileSpec, searchOpt) End If End Sub ' PreExecute ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean Try If String.IsNullOrEmpty(Me.SearchPath) Then Throw New ApplicationException("Specify search path.") End If result = True Catch ex As Exception result = False errMessage = ex.Message End Try Validate = result End Function 'Validate ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function GetProperties() As String() Dim result As New ArrayList() ' Include base settings. Call result.Add("IsSearchPathVariable") Call result.Add("IncludeSubfolders") If Me.IsSearchPathVariable Then Call result.Add("SearchPathVariable") Else Call result.Add("SearchPath") End If Return CType(result.ToArray(GetType(String)), String()) End Function ' GetProperties #Region "Properties" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property IsSearchPathVariable() As Boolean Get IsSearchPathVariable = m_isSearchPathVariable End Get Set(ByVal value As Boolean) If m_isSearchPathVariable <> value Then m_isSearchPathVariable = value m_searchPath = String.Empty End If End Set End Property ' IsSearchPathVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ Public Property SearchPathVariable() As String Get SearchPathVariable = m_searchPath End Get Set(ByVal value As String) m_searchPath = value End Set End Property ' SearchPathVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ Public Property SearchPath() As String Get SearchPath = m_searchPath End Get Set(ByVal value As String) m_searchPath = value End Set End Property ' SearchPath ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ Public Property IncludeSubfolders() As Boolean Get IncludeSubfolders = m_includeSubfolders End Get Set(ByVal value As Boolean) m_includeSubfolders = value End Set End Property ' IncludeSubfolders #End Region ' SearchPath #Region "Internals" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Get variable with specified name. Private Function GetVariable_(ByVal varName As String) As Object Dim result As Object Dim vars As IDTSVariables100 Call Me.VariableDispenser.LockOneForRead(varName, vars) Try result = vars(varName).Value Finally Call vars.Unlock() End Try GetVariable_ = result End Function ' GetVariable_ #End Region ' Internals #Region "Attributes" Private m_isSearchPathVariable As Boolean Private m_searchPath As String Private m_includeSubfolders As Boolean Private m_files() As String #End Region ' Attributes End Class ' ScriptMain ]]> _ Public Class OutputBuffer Inherits ScriptBufferPlus Public Sub New(ByVal Component As ScriptComponent, ByVal ObjectID As Integer, ByVal IsInput As Boolean, ByVal Buffer As PipelineBuffer, ByVal OutputMap As OutputNameMap) MyBase.New(Component, ObjectID, IsInput, Buffer, OutputMap) End Sub Public Overrides ReadOnly Property StaticInputColumns() As String() Get Return New String() {} End Get End Property Public WriteOnly Property [Attributes]() As Int32 Set Me(0) = Value End Set End Property Public WriteOnly Property [Attributes_IsNull] As Boolean Set If (value) SetNull(0) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [CreationTime]() As DateTime Set Me(1) = Value End Set End Property Public WriteOnly Property [CreationTime_IsNull] As Boolean Set If (value) SetNull(1) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [Extension]() As String Set Me(2) = Value End Set End Property Public WriteOnly Property [Extension_IsNull] As Boolean Set If (value) SetNull(2) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [FullName]() As String Set Me(3) = Value End Set End Property Public WriteOnly Property [FullName_IsNull] As Boolean Set If (value) SetNull(3) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [LastAccessTime]() As DateTime Set Me(4) = Value End Set End Property Public WriteOnly Property [LastAccessTime_IsNull] As Boolean Set If (value) SetNull(4) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [LastWriteTime]() As DateTime Set Me(5) = Value End Set End Property Public WriteOnly Property [LastWriteTime_IsNull] As Boolean Set If (value) SetNull(5) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [Name]() As String Set Me(6) = Value End Set End Property Public WriteOnly Property [Name_IsNull] As Boolean Set If (value) SetNull(6) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public WriteOnly Property [Length]() As UInt64 Set Me(7) = Value End Set End Property Public WriteOnly Property [Length_IsNull] As Boolean Set If (value) SetNull(7) Else Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.") End If End Set End Property Public Overrides ReadOnly Property StaticOutputColumns() As String() Get Return New String() {"Attributes", "CreationTime", "Extension", "FullName", "LastAccessTime", "LastWriteTime", "Name", "Length"} End Get End Property Public Overloads Sub AddRow() MyBase.AddRow() End Sub Public Overloads Sub SetEndOfRowset() MyBase.SetEndOfRowset() End Sub Public Overloads Function EndOfRowset() As Boolean EndOfRowset = MyBase.EndOfRowset End Function End Class ]]> {30D016F9-3734-4E33-A861-5E7D899E18F3};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} Debug AnyCPU 8.0.30703 2.0 {616662FA-B14E-44A9-9B9D-F7BC7BEC6A6B} Library My Project ScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60 ScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60 v4.0 512 Binary On On true full false .\bin\Debug\ false true true prompt 4 false true .\bin\Release\ false false true prompt 4 False C:\Program Files (x86)\Microsoft SQL Server\120\SDK\Assemblies\CozyRoc.SSISPlus.2014.dll False False False SSIS_SC120 ]]> _ Public Class UserComponent Inherits ScriptComponentPlus Public Connections As New Connections(Me) Public Variables As New Variables(Me) Public OutputBuffer As OutputBuffer Public Overridable Sub FinishOutputs() End Sub Private Sub MarkOutputsFinished() If OutputBuffer IsNot Nothing Then OutputBuffer.SetEndOfRowset OutputBuffer = Nothing End If End Sub Public Overrides Sub PrimeOutput(ByVal Outputs As Integer, ByVal OutputIDs() As Integer, ByVal Buffers() As PipelineBuffer, ByVal OutputMap As OutputNameMap) For I As Integer = 0 To Outputs - 1 If OutputIDs(I) = GetOutputID(OutputMap, "Output") Then OutputBuffer = New OutputBuffer(Me, OutputIDs(I), False, Buffers(I), OutputMap) End If Next CreateNewOutputRows() FinishOutputs() MarkOutputsFinished() End Sub Public Overridable Sub CreateNewOutputRows() End Sub End Class Public Class Connections Dim ParentComponent As ScriptComponent _ Public Sub New(ByVal Component As ScriptComponent) ParentComponent = Component End Sub End Class Public Class Variables Dim ParentComponent As ScriptComponent _ Public Sub New(ByVal Component As ScriptComponent) ParentComponent = Component End Sub End Class ]]> msBuild ScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60 ScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60 {4E186AE7-1EEA-4470-BC57-762B48DADE06} ]]>CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus.2014, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34eaScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60VisualBasic