none
Subir archivos a un servidor Web desde Aplicación en Visual Studio 2010 RRS feed

  • Pregunta

  • Estimados amig@s del foro, estoy trabajando con Visual Studio 2010 y MySql. Tengo un problema y quiero ver si ustedes me pueden ayudar a resolver mis dudas. Estoy queriendo subir archivos a un servidor Web local, por ejemplo C:\miServ desde mi aplicación de escritorio hecha en Visual Basic .Net, el Siguiente es mi código de lo que he podido averiguar en la web; pero no he podido aún subir archivos al servidor.

     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, btn_archivo.Click
            Dim openFileDialog1 As New OpenFileDialog()
            Dim fi As New IO.FileInfo("C:\")
            openFileDialog1.InitialDirectory = "C:\"
            openFileDialog1.Title = "Browse Text Files"
            openFileDialog1.CheckFileExists = True
            openFileDialog1.CheckPathExists = True
            openFileDialog1.DefaultExt = "pdf"
            openFileDialog1.Filter = "Ardchivos PDF (*.pdf)|*.pdf"
            openFileDialog1.FilterIndex = 2
            openFileDialog1.RestoreDirectory = True
            openFileDialog1.ReadOnlyChecked = False
            openFileDialog1.ShowReadOnly = True
            If openFileDialog1.ShowDialog() = DialogResult.OK Then
                txtArchivo.Text = openFileDialog1.FileName
            End If
        End Sub

    ---------------------------------------------------------------------------------------

    Hasta aquí puedo seleccionar al hacer clkic en el botón, pero no sé como poder hacer o usar FileUpload. o Si se utiliza en VB .net.

    Saludos cordiales,

    Espero su ayuda

    lunes, 6 de mayo de 2013 17:55

Respuestas

Todas las respuestas

    • Propuesto como respuesta Dave RendónMVP miércoles, 8 de mayo de 2013 4:09
    • Marcado como respuesta Sandrillo jueves, 9 de mayo de 2013 16:47
    • Desmarcado como respuesta Sandrillo jueves, 9 de mayo de 2013 16:50
    • Marcado como respuesta Omar OrtizModerator jueves, 20 de junio de 2013 22:41
    miércoles, 8 de mayo de 2013 4:09
  • Muchas Gracias por tu respuesta DaveRndn,

    He visto y eso es ASP, te cuento, mi aplicación es de escritorio, es crear un .EXE al final... lo instalo en 1 ó 10 PC's de los funcionarios, y luego ellos ingresan con su user y password, ingresar, modifican y eliminan datos. Mi problema es que cuando ingresan datos a la base de datos, ellos deben subir un archivo a un servidor Web local que está dentro de nuestra LAN, entonces he visto que los Windows Forms, no cuentan con una propiedad para subir archivos a un servidor Web desde una aplicación de escritorio, y es ahí donde les pido ayuda... en el ejemplo de arriba, logro capturar el archivo, pero no sé como hacer el "Upload", no sé si alguien ha hecho algo.

    Muchas gracias,

    Saludos


    • Editado Sandrillo jueves, 9 de mayo de 2013 16:54
    jueves, 9 de mayo de 2013 16:47
  • Lo que si puedes hacer es crear una carpeta compartida en tu servidor web y copiar el fichero ahí...otra opción es usar ftp, si tu servidor web también tiene un servidor ftp crearte un cliente y enviar el fichero a través de ese protocolo

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos


    jueves, 9 de mayo de 2013 16:56
  • Revisa tb este enlace de WebClient.UploadFile

    http://msdn.microsoft.com/en-us/library/bcfh1hw9.aspx


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    jueves, 9 de mayo de 2013 17:03
  • Gracias amigo Sergio,

    hice finalmente esto, con la ayuda de un amigo de otro foro, pero me arroja un error.

        Dim openFileDialog1 As New OpenFileDialog()
            Dim DirDestino As String = "C:\Prueba"
            Dim DirOrigen As String = String.Empty
            openFileDialog1.InitialDirectory = "C:\"
            openFileDialog1.Title = "Seleccione un Archivo"
            openFileDialog1.CheckFileExists = True
            openFileDialog1.CheckPathExists = True
            openFileDialog1.DefaultExt = "pdf"
            openFileDialog1.Filter = "Ardchivos PDF (*.pdf)|*.pdf"
            openFileDialog1.FilterIndex = 2
            openFileDialog1.RestoreDirectory = True
            openFileDialog1.ReadOnlyChecked = False
            openFileDialog1.ShowReadOnly = True

            If openFileDialog1.ShowDialog() = DialogResult.OK Then
                txtArchivo.Text = openFileDialog1.FileName
                DirOrigen = txtArchivo.Text
                System.IO.File.Copy(DirDestino, DirOrigen, True)
            End If

    El error es este : "Acceso denegado a la ruta de acceso 'C:\Prueba'."

    Es solamente de Windows 7 este error??.

    Saludos cordiales,

    martes, 14 de mayo de 2013 13:16
  • C:\prueba es de tu servidor o es el local a la aplicación winform?? Si es local revisa que el usuario que ejecuta la aplicación tenga permisos sobre esa carpeta... Si lo que intentas es acceder a una carpeta en el servidor porque no haces una compartida y accedes como \\servidor\prueba?

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    martes, 14 de mayo de 2013 15:21