Ответа на поставленный вопрос не имею , но быть может Вам пригадиться этот скрипт найденный мной в одной вумной книжке

'**********************************************************************

' Visual Basic ActiveX Script

'************************************************************************

Function Main()

Dim oPackage, oTask, oPumpTask

Dim oRS, strSQL

Dim oConn,strNewName



'Get the Global recordset

Set oRS = DTSGlobalVariables("rsState").Value

If Not oRS.EOF AND Not oRS.BOF Then



'Change the value of the file name on the connection

Set oPackage = DTSGlobalVariables.parent

Set oConn = oPackage.Connections(2)

strNewName = oConn.DataSource

strNewName = Left(strNewName, _

(Len(strNewName) - (Len(strNewName) - InStrRev(strNewName,"\"))))

strNewName = strNewName & "pubs" & oRS(0) & ".txt"

oConn.DataSource = strNewName



'Set global variable with state from the recordset

DTSGlobalVariables("State") = oRS(0)



End If

'Clean Up

Set oPumpTask = Nothing

Set oTask = Nothing

Set oPackage = Nothing

Set oConn = Nothing



Main = DTSTaskExecResult_Success

End Function