]]> _ _ _ 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 IDTSVariables90 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 ]]> ScriptComponent_9eb4ecf4b601439f9be30e7291a2ec60 true CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea