"Steve" <Steve@discussions.microsoft.com> wrote in message
news:33EEFF50-8AFE-4A1E-8394-7228122ED7AA@microsoft.com...
> Hi,
> Can someone help me with the following
>
> I get a file each week with different name. Using Nothwind
> Example. Suppose I get a file CustomersA1. Next week I get the file with
> the name CustomersA8. This file that I get each week has to go in
Customers
> table .
> How do I tell DTS that the file name changes every week. I am using Text
> file connection & I have specified the file name.
> For example
> C:\Work\customersA1.txt
>
> Earlier I had posted it few days ago & I was refered to a website which
had
> following code.
>
> '**********************************************************************
> ' Visual Basic ActiveX Script
> '************************************************************************
>
> Function Main()
> Dim oConn, sFilename
> sFilename = "customer" & Right(Year(Now()), 2)
> If Month(Now()) < 10 Then sFilename = sFilename & "0" & Month(Now()) Else
> sFilename = sFilename & Month(Now())
> If Day(Now()) < 10 Then sFilename = sFilename & "0" & Day(Now()) Else
> sFilename = sFilename & Day(Now())
> sFilename = DTSGlobalVariables("FilePath").Value & sFilename & ".txt"
> Set oConn = DTSGlobalVariables.Parent.Connections("Text File (Source)")
> oConn.DataSource = sFilename
> set oConn = Nothing
> Main = DTSTaskExecResult_Success
> End Function
>
>
> I am not good in activex programming. I am just a beginner in activex.
Can
> someone show me with syntax(activex) what to write in order to determine
that
> filename has changed.
>
>
> A complete syntax will be lot of help for me. Please use
> C:\Work\filename.txt as path so I can understand it well
>
>
>
>
> Thanks
>
> Steve

"Steve" <Steve@discussions.microsoft.com> wrote in message
news:33EEFF50-8AFE-4A1E-8394-7228122ED7AA@microsoft.com...
> Hi,
> Can someone help me with the following
>
> I get a file each week with different name. Using Nothwind
> Example. Suppose I get a file CustomersA1. Next week I get the file with
> the name CustomersA8. This file that I get each week has to go in
> Customers
> table .
> How do I tell DTS that the file name changes every week. I am using Text
> file connection & I have specified the file name.
> For example
> C:\Work\customersA1.txt
>
> Earlier I had posted it few days ago & I was refered to a website which
> had
> following code.
>
> '**********************************************************************
> ' Visual Basic ActiveX Script
> '************************************************************************
>
> Function Main()
> Dim oConn, sFilename
> sFilename = "customer" & Right(Year(Now()), 2)
> If Month(Now()) < 10 Then sFilename = sFilename & "0" & Month(Now()) Else
> sFilename = sFilename & Month(Now())
> If Day(Now()) < 10 Then sFilename = sFilename & "0" & Day(Now()) Else
> sFilename = sFilename & Day(Now())
> sFilename = DTSGlobalVariables("FilePath").Value & sFilename & ".txt"
> Set oConn = DTSGlobalVariables.Parent.Connections("Text File (Source)")
> oConn.DataSource = sFilename
> set oConn = Nothing
> Main = DTSTaskExecResult_Success
> End Function
>
>
> I am not good in activex programming. I am just a beginner in activex.
> Can
> someone show me with syntax(activex) what to write in order to determine
> that
> filename has changed.
>
>
> A complete syntax will be lot of help for me. Please use
> C:\Work\filename.txt as path so I can understand it well
>
>
>
>
> Thanks
>
> Steve