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