cómo subir archivos a un servidor con vb.net (No ASP)

[Danielfuzz]

hola, tengo un problema, no se cómo subir archivos a un servidor con visual basic .net 2005.

Mi idea es que tengo un programilla para registrar usuarios en un club de video, el usuario carga su foto al programa, pero no se como subir del programa al servidor.

Por favor alguiena yudeme con esto. Mil gracias de antemano.

Daniel.

[junahu]

yo hice algo parecido y lo hice con SaveFileDialog:

/////////////////////////////////////////////////////////////////////////////////
Dim fi As New IO.FileInfo(<ruta del archivo a mandar al servidor>)

SaveFileDialog1.InitialDirectory = <ruta de la carpeta compartida del servidpr>

SaveFileDialog1.Filter = "Documento Word (*.doc)|*.doc|Documento Adobe (*.pdf)|*.pdf" ''yo mandaba un archivo de texto.

SaveFileDialog1.FilterIndex = 1

SaveFileDialog1.RestoreDirectory = True

SaveFileDialog1.FileName = fi.Name '' nombre del documento

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim ruta As String = Me.SaveFileDialog1.FileName
fi.CopyTo(ruta, True)
Me.Close()
End If
///////////////////////////////////////////////////////////////////////////////////////

esto lo utilicé en un programa que corría con XP y funcionaba, pero el mismo programa con el vista, esto no funcionaba y tuve que utilizar una conexión a unidad de red.

espero que te sirva y saludos.

[Danielfuzz]

Iniciado por junahu

yo hice algo parecido y lo hice con SaveFileDialog:

/////////////////////////////////////////////////////////////////////////////////
Dim fi As New IO.FileInfo(<ruta del archivo a mandar al servidor>)

SaveFileDialog1.InitialDirectory = <ruta de la carpeta compartida del servidpr>

SaveFileDialog1.Filter = "Documento Word (*.doc)|*.doc|Documento Adobe (*.pdf)|*.pdf" ''yo mandaba un archivo de texto.

SaveFileDialog1.FilterIndex = 1

SaveFileDialog1.RestoreDirectory = True

SaveFileDialog1.FileName = fi.Name '' nombre del documento

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim ruta As String = Me.SaveFileDialog1.FileName
fi.CopyTo(ruta, True)
Me.Close()
End If
///////////////////////////////////////////////////////////////////////////////////////

esto lo utilicé en un programa que corría con XP y funcionaba, pero el mismo programa con el vista, esto no funcionaba y tuve que utilizar una conexión a unidad de red.

espero que te sirva y saludos.

hola, primeramente grcias por tu respuesta.
Tu ejemplo sirve para guardar los archivos en la Pc local, lo que yo busco es guardarlos en un servidor remoto con Nombre de Usuario y contraseña.

Encontré un método que es My.Computer.Network.Uploadfile(sourceFileName, address, userName, password), pero tengo problemas con el segundo parametro.
En todos los ejemplos que vi acerca de este método el segundo parametro especifica la direccion de un archivo y no así de una carpeta o directorio. a continuiacion un ejemplo:

Este ejemplo carga el archivo Order.txt en http://www.cohowinery.com/uploads sin proporcionar ningún nombre de usuario ni contraseña, muestra el progreso de la carga y tiene un tiempo de espera de 500 milisegundos.

Código:

My.Computer.Network.UploadFile ("C:\My Documents\Order.txt", "http://www.cohowinery.com/upload.aspx","","",True,500)

Como ven en el segundo parametro se especifica un archivo y no un directorio. Tambien llegué a pensar que se trataba del nombre con que se guardaría el archivo pero tampoco porq me salió un mensaje en la excepción: "Error 404 No encontrado" o algo asi.

Por favor alguien expliqueme como trabaja este metodo!!!

[Danielfuzz]

acabo de probar el UploadFile guardando el archivo en un servidor ftp y no en un servidor web como lo intente antes y funcionó. voy a cerrar el tema, aunque me gustaría saber como hacerlo en un servidor web. Acá les dejo un resumen de como lo hice antes y después (para aquellos futuros visitantes que tengan el mismo problema):

antes lo hice así (no me funcionó):

Código:

My.Computer.Network.UploadFile("C:\Documents and Settings\daniel\Escritorio\ip.txt", "http://localhost/ip.txt", "Usuario", "mipassword", True, 500)

después instalé un servidor ftp, me cree un usuario y me di permisos de escritura. y cambié el código anterior por este:

Código:

My.Computer.Network.UploadFile("C:\Documents and Settings\daniel\Escritorio\ip.txt", "ftp://localhost/ip.txt", "Usuario", "mipassword", True, 500)

(Ojo que el usuario y password de este ultimo ejemplo te lo das al crear tu usuraio en el servidor ftp).

saludos!!!

[jmslash]

Hola Danielfuzz

existe otra opción... y es serializar la imagen antes de guardarla... solo que al momento de usarla deberás deserializarla primero.

de esta forma trabajas con texto plano... por lo que puedes guardarlas directamente en la bd y cada vez que las requieras no vas al directorio virtual sino a tu BD...

te dejo el link .............. elguille.info/colabora/puntoNET/cbigentini_SerializarImagenesEnXML.htm...

probé tu solución y está bien solo que habría que levantar adicionalmente un ftp...

bueno, de cualquier forma es solo una opción. el cliente decide :D jejej



\\\jmslash///