Visual Basic.NET - descargar archivo por ftp

 
Vista:
sin imagen de perfil

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder