Obtener dinámicamente el archivo que deseo cargar con un DTS

Hola!!

Tengo la siguiente situación:

Supongan que todos los días un servicio me envía un archivo de texto con una
estructura dada que debo importar a una base de datos. Este archivo
normalmente recibe el nombre en la forma "VE" + fecha del los datos +
".txt", es decir que normalmente yo podria saber como se llama en todo
momento el nuevo archivo. Pero en ocasiones me envían un archivo que
corresponde a uno de los que cargué anteriormente para sustituirlo, digamos
x que el anterior tenia errores.

Bajo esta circunstancia, creo que lo óptimo sería que mi DTS pueda obtener
el nombre del archivo sin necesidad de que se le suministre, tengo entendido
que esto puede hacerse con un vbscript similar a este, pero no me está
funcionando. Alguien me puede ayudar ó indicarme donde puedo conseguir algun
buen ejemplo?

Gracias de antemano!!!
Atte Rodney Pacheco.


Function Main()
Main = DTSTaskExecResult_Success
Dim oConn, local, fso

Set oConn = DTSGlobalVariables.Parent.Connections("Vector")
test = oConn.DataSource

set fso = createobject("scripting.FileSystemObject")
set local = fso.getfilename(test)
msgbox(local)

Set oConn = Nothing
Main = DTSTaskExecResult_Success

End Function