Los foros del Guille

dotNetManía + el sitio del Guille:
¡La mejor información de punto NET!
¡Suscríbete ya! y consigue un 10% de descuento

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

10/sep/2005
- Se puede indicar las fechas a mostrar en los mensajes de un foro, (el formato es mes/dia/año).
- Desde Personalizar puedes acceder a los zips posteados por los moderadores como respuestas a preguntas de los foros, también puedes seleccionar los foros favoritos para que te notifique.

  Foro: Pocket PC Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 55750 - Enviar archivos a servidor preferiblemente ftp en vb.net con pda
IDAsuntoFechaNick 
55750 Enviar archivos a servidor preferiblemente ftp en vb.net con pda31/08/11 18:36opss   
Buenas, mi duda es bastante sencilla, quiero enviar unas fotografias que saco desde mi pda en un programa realizado en vb.net y la verdad no encuentro librerias para ftp o algun ejemplo claro. Alguien tiene alguna idea? Acepto otras proposiciones para subir archivos de otra manera que no sea ftp.
IDAsuntoFechaNick 
55780 Re: Enviar archivos a servidor preferiblemente ftp en vb.net con pda (Resp: 55750)07/09/11 18:30opss   
al final encontre una libreria por si alguien necesitaba de eso
la libreria esta en http://www.otakusoftwaremx.hostzi.com/index.php?module=LstLib&pagina=2

y el codigo:

Imports OSMXFtp

Dim hCFTP As ClienteFTP

'Funcion para recuperar todos los mensajes enviados por parte del servidor
Private Sub MesajesFTPs(Byval hResp As ClienteFTP.InfoRespuesta) Handle hCFTP.MensajesFTP
CapturaMensajes(hResp.cMensajeFTP)
End Sub
'Funcion para mostrar los mensajes, tambien se utiliza para recuperar errores y advertencias
'por parte del servidor
Private Sub CapturaMensajes(ByVal cMensajes As String) Handle hCFTP.OcurrioError,hCFTP.AdvertenciasFTP
RTBMsg.AppendText(cMensajes & vbLfCr)
End Sub

hCFTP = New ClienteFTP("127.0.0.1","root","123456","/",21)
'Habilitamos el archivo LOG
hCFTP.HabilitarHistorial = True
'Iniciamos sesion
If hCFTP.LogIn() Then
MsgBox("Conectado..",MsgBoxstyle.Information,"Estado Conexión")
Else
MsgBox("No conectado..",MsgBoxstyle.Information,"Estado Conexión")
End If
hCFTP.DownloadFile("MiArchivo.txt")
'O utilizar las sobrecargas
'hCFTP.DownloadFile("MiArchivo.txt","C:\MiArchivo2.txt",False)
'hCFTP.DownloadFile("MiArchivo.txt",False)

hCFTP.UploadFile("MiArchivo.txt")
'Outilizar las sobrecargas
'hCFTP.UploadFile("MiArchivo.txt",False)

'Recuperar el tamaño de un archivo
hCFTP.GetFileSize("Miarchivo.txt")

'Recuperar archivos y directorios
Dim hValores As Hashtable = New Hashtable()
hValores = hCFTP.GetPathAndFileList()
'InfoPath es la estructura almacenada en el resultado de la función
'GetPathAndFileList
For Each hV As ClienteFTP.InfoPath In hValor.Values
If hV.hTipo == ClienteFTP.TipoArchivo.Directorio Then
MsgBox(hV.cNombre,MsgBoxstyle.Information,"Directorio")
Else
MsgBox(hV.cNombre,MsgBoxstyle.Information,"Archivo")
End If
Next


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 64 - App. iniciada: 21/11/2017 10:44:15 GMT - La hora GMT del servidor es: 21/11/2017 12:07:53 GMT