SSIS, secuencia de comandos y ftp

20/11/2009 - 12:16 por José Mª Fueyo | Informe spam
Hola a todos.
Sigo peleandome con los paquetes SSIS, y bueno poco a poco
avanzando ;-)
Me encuentro con algo que no entiendo por más que lo intento. He
creado un paquete con una tarea de secuencia de comandos, que
básicamente busca unos archivos en un sitio ftp para bajarlos,
tratarlos, renombrarlos y volverlos a subir (ya que no hay posibilidad
sencilla de renombar ficheros, he decidido hacerlo así).
Bajar los ficheros y tratarlos, no hay problema. El problema es que,
por más que lo intento, no consigo subir el fichero renombrado. ¿Algo
se me escapa? os muestro el código que uso, a ver sí veis algo que se
me escape a mi
<pego>
If Archivos.Length = 1 Then
'Recupero el nombre, sin ruta de acceso, del archivo
Archivo = Split(Archivos(0), "\")
Dim i As Integer = UBound(Archivo)
'La copia para procesar
File.Copy(Archivos(0), sDirLocal &
"ServRealizados.txt", True)
'Preparo proceso para subir al ftp, marcado como
tratado
File.Copy(Archivos(0), sDirLocal & "Tratado_" & Archivo
(i), True)
File.Delete(Archivos(0))

'ftp.DeleteFiles(ArchivosAObtener)

Dim ASubir(0) As String
ASubir(0) = "BGTratado_" & Archivo(i)
System.Windows.Forms.MessageBox.Show(ASubir(0))

ftp.SendFiles(ASubir, "", True, True)

'Archivo(i) = "Tratado_" & Archivo(i)

'File.Delete(sDirLocal & "BGTratado_" & Archivo(i))
ftp.Close()
Dts.TaskResult = Dts.Results.Success
Else
ftp.Close()
Dts.TaskResult = Dts.Results.Failure
End If
</pego>
¿Alguna idea, al respecto, alguna sugerencia, crítica...?
Gracias.

Salu2,
José Mª Fueyo
 

Leer las respuestas

#1 Maxi Accotto
20/11/2009 - 20:39 | Informe spam
Hola, y cual es el error?



Maxi Accotto
MVP en SQL Server
http://blog.maxiaccotto.com

"José Mª Fueyo" wrote in message
news:
Hola a todos.
Sigo peleandome con los paquetes SSIS, y bueno poco a poco
avanzando ;-)
Me encuentro con algo que no entiendo por más que lo intento. He
creado un paquete con una tarea de secuencia de comandos, que
básicamente busca unos archivos en un sitio ftp para bajarlos,
tratarlos, renombrarlos y volverlos a subir (ya que no hay posibilidad
sencilla de renombar ficheros, he decidido hacerlo así).
Bajar los ficheros y tratarlos, no hay problema. El problema es que,
por más que lo intento, no consigo subir el fichero renombrado. ¿Algo
se me escapa? os muestro el código que uso, a ver sí veis algo que se
me escape a mi
<pego>
If Archivos.Length = 1 Then
'Recupero el nombre, sin ruta de acceso, del archivo
Archivo = Split(Archivos(0), "\")
Dim i As Integer = UBound(Archivo)
'La copia para procesar
File.Copy(Archivos(0), sDirLocal &
"ServRealizados.txt", True)
'Preparo proceso para subir al ftp, marcado como
tratado
File.Copy(Archivos(0), sDirLocal & "Tratado_" & Archivo
(i), True)
File.Delete(Archivos(0))

'ftp.DeleteFiles(ArchivosAObtener)

Dim ASubir(0) As String
ASubir(0) = "BGTratado_" & Archivo(i)
System.Windows.Forms.MessageBox.Show(ASubir(0))

ftp.SendFiles(ASubir, "", True, True)

'Archivo(i) = "Tratado_" & Archivo(i)

'File.Delete(sDirLocal & "BGTratado_" & Archivo(i))
ftp.Close()
Dts.TaskResult = Dts.Results.Success
Else
ftp.Close()
Dts.TaskResult = Dts.Results.Failure
End If
</pego>
¿Alguna idea, al respecto, alguna sugerencia, crítica...?
Gracias.

Salu2,
José Mª Fueyo

Preguntas similares