File Properties Source

Library references

• System
• System.Data
• Microsoft.SqlServer.TxScript
• Microsoft.SqlServer.PipelineHost
• Microsoft.SqlServer.DTSPipelineWrap
• Microsoft.SqlServer.DTSRuntimeWrap
• Microsoft.SqlServer.ManagedDTS
• CozyRoc.SSISPlus

ScriptMain

' CozyRoc SQL Server Integration Services user script component ' ' Copyright (c) 2006-2009 CozyRoc LLC ' ' Permission is hereby granted, free of charge, to any person ' obtaining a copy of this software and associated documentation ' files (the "Software"), to deal in the Software without ' restriction, including without limitation the rights to use, ' copy, modify, merge, publish, distribute, sublicense, and/or sell ' copies of the Software, and to permit persons to whom the ' Software is furnished to do so, subject to the following ' conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ' OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT ' HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ' WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ' OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.ComponentModel Imports System.IO Imports System.Collections Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper Imports Microsoft.SqlServer.Dts.Runtime.Wrapper Imports CozyRoc.SqlServer.SSIS.Attributes ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <SortProperties(New String() {"IsSearchPathVariable", "SearchPathVariable", "SearchPath", "IncludeSubfolders"})> _ <ValidateProperties("Validate")> _ <FilterProperties("GetProperties")> _ 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" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <Description("Specifies if SearchPath property references package variable.")> _ <RefreshProperties(RefreshProperties.All)> _ 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 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <Description("Specifies variable containing search path.")> _ <Variable()> _ Public Property SearchPathVariable() As String Get SearchPathVariable = m_searchPath End Get Set(ByVal value As String) m_searchPath = value End Set End Property ' SearchPathVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <Description("Specifies search path.")> _ Public Property SearchPath() As String Get SearchPath = m_searchPath End Get Set(ByVal value As String) m_searchPath = value End Set End Property ' SearchPath ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' <Description("Specifies if subfolders are to be included.")> _ 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