
descargar archivo por ftp
Publicado por alexis (35 intervenciones) el 11/04/2013 00:08:11
Buenas tardes que tal con el siguiente codigo estoy descargando el archivo que se encuenta en un servidor x
al inicio le asigno el nombre del servidor
usuario
contraseña
para descargar un archivo, de esta manera funciona bien
Dim cm2 As ConnectionManager = Dts.Connections.Add("FTP")
Dim strFolders2 As String()
Dim strFiles2 As String()
Dim archivo(0) As String
Dim cargado(0) As String
Dim fileCount As Int32
Dim fileName As String
Dim ls_NumDia As String 'Numero de dia de la semana
Dim li_NumMes As Integer 'Numero de mes
Dim ls_NomMes As String 'Nombre del mes ( se toma 3 letras)
Dim ls_path As String ' ruta del archivo a verificar
Dim ls_urlXmlRecibidos As String
Dim cm2 As ConnectionManager = Dts.Connections.Add("FTP")
cm2.Properties("ServerName").SetValue(cm2, Dts.Variables("v_FTP_NameServidor").Value)
cm2.Properties("ServerUserName").SetValue(cm2, Dts.Variables("v_usuario").Value)
cm2.Properties("ServerPassword").SetValue(cm2, Dts.Variables("v_clave").Value)
Dim ftp2 As FtpClientConnection = New FtpClientConnection(cm2.AcquireConnection(Nothing))
ftp2.Connect()
ftp2.GetListing(strFolders2, strFiles2)
For Each fileName2 In strFiles2
If ((fileName2.Substring(0, 14) = Dts.Variables("v_IniNameFile").Value & ls_NumDia & ls_NomMes)) Then
archivo(0) = fileName2.ToString
ftp2.ReceiveFiles(archivo, ls_urlXmlRecibidos, True, False)
End If
Next
ftp2.Close()
´pero el problema es no entiendo bien el funcionamiento de las carpetas
lo que deseo ahora es poder descargar un archivo que se encuentra en el servidor
ejemplo de estructura
nombre de servidor
archivo.txt
carpeta1
archivo1.txt
archivo2.txt
deseo poder descargar el archivo1.txt
la idea es ingresar a la carpeta1 para descargar el archivo1.txt
se le agradece la ayuda
al inicio le asigno el nombre del servidor
usuario
contraseña
para descargar un archivo, de esta manera funciona bien
Dim cm2 As ConnectionManager = Dts.Connections.Add("FTP")
Dim strFolders2 As String()
Dim strFiles2 As String()
Dim archivo(0) As String
Dim cargado(0) As String
Dim fileCount As Int32
Dim fileName As String
Dim ls_NumDia As String 'Numero de dia de la semana
Dim li_NumMes As Integer 'Numero de mes
Dim ls_NomMes As String 'Nombre del mes ( se toma 3 letras)
Dim ls_path As String ' ruta del archivo a verificar
Dim ls_urlXmlRecibidos As String
Dim cm2 As ConnectionManager = Dts.Connections.Add("FTP")
cm2.Properties("ServerName").SetValue(cm2, Dts.Variables("v_FTP_NameServidor").Value)
cm2.Properties("ServerUserName").SetValue(cm2, Dts.Variables("v_usuario").Value)
cm2.Properties("ServerPassword").SetValue(cm2, Dts.Variables("v_clave").Value)
Dim ftp2 As FtpClientConnection = New FtpClientConnection(cm2.AcquireConnection(Nothing))
ftp2.Connect()
ftp2.GetListing(strFolders2, strFiles2)
For Each fileName2 In strFiles2
If ((fileName2.Substring(0, 14) = Dts.Variables("v_IniNameFile").Value & ls_NumDia & ls_NomMes)) Then
archivo(0) = fileName2.ToString
ftp2.ReceiveFiles(archivo, ls_urlXmlRecibidos, True, False)
End If
Next
ftp2.Close()
´pero el problema es no entiendo bien el funcionamiento de las carpetas
lo que deseo ahora es poder descargar un archivo que se encuentra en el servidor
ejemplo de estructura
nombre de servidor
archivo.txt
carpeta1
archivo1.txt
archivo2.txt
deseo poder descargar el archivo1.txt
la idea es ingresar a la carpeta1 para descargar el archivo1.txt
se le agradece la ayuda
Valora esta pregunta


0