I have 4 different flat file struture in on
folder(_001.dat,_002.dat,_003.dat,_004.dat)each going to a seperate
table. Right now the logic below grabs all files. I want to be able to
filter on the file extension and send that to its own particular table.

Function Main()

' Declare FSO Related Variables
Dim sFolder
Dim fso
Dim fsoFolder
Dim fsoFilesCollection
Dim fsoFile
Dim sFileName

'Declare Variables
Dim oPKG
Dim oConnection


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Here is the full code


Function Main()

' Declare FSO Related Variables
Dim sFolder
Dim fso
Dim fsoFolder
Dim fsoFilesCollection
Dim fsoFile
Dim sFileName

'Declare Variables
Dim oPKG
Dim oConnection

' Get Package Object
Set oPKG = DTSGlobalVariables.Parent
' Get Source Connection Object
Set oConnection = oPKG.Connections("Connection 1")

' Import Folder
sFolder = DTSGlobalVariables("ImportFolder")

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder(sFolder)

Dim bFound
bFound = False

For Each fsoFile in fsoFolder.Files
sFileName = sFolder & fsoFile.Name
If oConnection.DataSource = sFileName Then
bFound = True
ElseIf bFound = True Then
oConnection.DataSource = sFileName
' Set Pump Step to waiting
oPKG.Steps("Copy Data from ImportTest to [JTEST].[dbo].[ABW_001]
Step").ExecutionStatus = DTSStepExecStat_Waiting
End if


Exit For
End If
Next

Main = DTSTaskExecResult_Success
End Function

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Here is the full code


Function Main()

' Declare FSO Related Variables
Dim sFolder
Dim fso
Dim fsoFolder
Dim fsoFilesCollection
Dim fsoFile
Dim sFileName

'Declare Variables
Dim oPKG
Dim oConnection

' Get Package Object
Set oPKG = DTSGlobalVariables.Parent
' Get Source Connection Object
Set oConnection = oPKG.Connections("Connection 1")

' Import Folder
sFolder = DTSGlobalVariables("ImportFolder")

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder(sFolder)

Dim bFound
bFound = False

For Each fsoFile in fsoFolder.Files
sFileName = sFolder & fsoFile.Name
If oConnection.DataSource = sFileName Then
bFound = True
ElseIf bFound = True Then
oConnection.DataSource = sFileName
' Set Pump Step to waiting
oPKG.Steps("Copy Data from ImportTest to [JTEST].[dbo].[ABW_001]
Step").ExecutionStatus = DTSStepExecStat_Waiting
End if


Exit For
End If
Next

Main = DTSTaskExecResult_Success
End Function

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!