Los foros del Guille

elGuille.hosting: La oferta recomendada:
.NET 2.0, SQL Server, 1200MB, 10GB transf. por 9.95 Euros al mes

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)

14/ene/2006
En la página de inicio se muestra la bandera de tu país, o al menos debería mostrarse si es que tu dirección IP está en mi base de datos. Si no te muestra la bandera, seguramente se mostrará un link para que me digas que IP estás usando y de que país eres... si es así, te agradecería que me lo dijeras.
También puedes poner la imagen de la bandera de tu país en tus mensajes, aquí te explico como.

  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.8800)
 
Usuarios activos: 32 - App. iniciada: 09/12/2018 20:51:06 GMT - La hora GMT del servidor es: 09/12/2018 21:24:13 GMT