Los foros del Guille

Ya está a la venta Novedades de Visual Basic 9.0

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)

08/dic/2005
Si haces una pregunta y te responden correctamente, por favor, márcala como respuesta válida (pulsa en la interrogación de la respuesta que responda tu duda), de esa forma ayudarás a otros que tengan esa misma duda. Gracias.

  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-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 8 - App. iniciada: 19/06/2018 6:23:54 GMT - La hora GMT del servidor es: 19/06/2018 06:26:09 GMT