Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

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

21/09/2004 - 00:30 por Rodney Pacheco P | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Javier Loria
21/09/2004 - 05:17 | Informe spam
Hola:
El codigo para leer los archivos de un directorio seria:
= Dim fso
Dim fsoFolder
Dim fsoFile

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fso.GetFolder("C:\Test")
For Each fsoFile in fsoFolder.Files
MsgBox "C:\Test\" & fsoFile.Name
Next
Main=DTSTaskExecResult_Success
= Pero se requiere un poco mas de logica para implementar un paquete que
tenga un Ciclo. Puedes revisar:
http://www.databasejournal.com/feat...hp/1461661
Esto deberia servirte (esta en ingles).


Javier Loria
Costa Rica
Se aprecia la inclusion de DDL (CREATE, INSERTS, etc.)
que pueda ser copiado y pegado al Query Analizer.
La version de SQL y Service Pack tambien ayuda

"Rodney Pacheco P" wrote in message
news:
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


Preguntas similares

 

Busqueda sugerida :