<pego>
Public Sub Main()
'
' Add your code here
'
Try
Dim Vars As Variables
Dim sArchivo(0) As String
Dim sDirRemoto As String = "/"
sArchivo(0) = "SolicitudesServicios.txt"
'*****************************************
'RECUPERO DATOS DE VARIABLES DEL PAQUETE
'Configuro la conexión. Servidor
Dim sFTPServer As String
Dts.VariableDispenser.LockOneForRead("sServidorFTP", Vars)
sFTPServer = Vars("sServidorFTP").Value.ToString()
Vars.Unlock()
'Usuario
Dim sUsFTP As String
Dts.VariableDispenser.LockOneForRead("sUsuarioFTP", Vars)
sUsFTP = Vars("sUsuarioFTP").Value.ToString()
Vars.Unlock()
'Contraseña
Dim sPwFTP As String
Dts.VariableDispenser.LockOneForRead("sPwFTP", Vars)
sPwFTP = Vars("sPwFTP").Value.ToString()
Vars.Unlock()
'Ruta local
Dim sDirLocal As String
Dts.VariableDispenser.LockOneForRead("sLocalPath", Vars)
sDirLocal = Vars("sLocalPath").Value.ToString()
Vars.Unlock()
'Recupero conexión FTP
Dim cnFTP As ConnectionManager = Dts.Connections("ftpLOOMIS")
'Configuro el FTP
cnFTP.Properties("ServerName").SetValue(cnFTP, sFTPServer)
cnFTP.Properties("ServerUserName").SetValue(cnFTP, sUsFTP)
cnFTP.Properties("ServerPassword").SetValue(cnFTP, sPwFTP)
cnFTP.Properties("ServerPort").SetValue(cnFTP, "21")
cnFTP.Properties("Timeout").SetValue(cnFTP, "0")
cnFTP.Properties("ChunkSize").SetValue(cnFTP, "1000")
'Creo el objeto ftp
Dim ftp As FtpClientConnection = New
FtpClientConnection(cnFTP.AcquireConnection(Nothing))
'Abro la conexión, envío el archivo y cierro conexión
ftp.Connect()
ftp.UsePassiveMode = False
sArchivo(0) = sDirLocal & sArchivo(0)
ftp.SendFiles(sArchivo, sDirRemoto, True, True)
ftp.Close()
Dts.TaskResult = Dts.Results.Success
Catch ex As Exception
MsgBox("Error :: " + ex.ToString)
Dts.TaskResult = Dts.Results.Failure
End Try
End Sub
</pego>
Como veis, configuro el sitio ftp a través de variables del paquete. Como os
digo, no da error, pero no sube el fichero.
A ver sí alguien me puede dar alguna idea de que es lo que pasa, por qué me
estoy volviendo loco.
¡Gracias!
Salu2,
José Mª Fueyo
\\NombreServidor\c$\CarpetaDeUbicacion\
¿Podría tener que ver? gracias.
Salu2
--
José Mª Fueyo
¿El usuario que ejecuta el paquete tiene permisos para acceder a esas rutas
UNC?
Un saludo.
Diego
"José Mª Fueyo" <jmf...@NOSPAMya.com> escribió en el mensaje de
noticias:2B0D6FF8-9702-47CF...@microsoft.com...