Tema: Subir imagen
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/07/2010, 22:02
Avatar de mau_87lp
mau_87lp
 
Fecha de Ingreso: diciembre-2009
Ubicación: La Plata,Buenos Aires.
Mensajes: 72
Antigüedad: 14 años, 2 meses
Puntos: 3
Subir imagen

Hola lo que quiero hacer es poder cargar una imagen a traves de un "FileUpload". Por lo que fui mirando en ejemplos encontrados en internet, llegue a hacer el siguiente codigo.


Código:
Dim nomArchivo As String = FileUpload1.FileName
        Dim longNomArch As Integer = nomArchivo.Length
        Dim tipo As String = nomArchivo.Substring(longNomArch - 4, 4)
        'Label1.Text = FileUpload1.FileName
        If tipo = ".jpg" OrElse tipo = "jpeg" OrElse tipo = ".gif" OrElse tipo = "JPEG" OrElse tipo = ".JPG" OrElse tipo = ".GIF" Then

            If File.Exists("/public_html/Imagenes_1/" & nomArchivo) = False Then

                FileUpload1.PostedFile.SaveAs("/public_html/Imagenes_1/" & nomArchivo)


            Else
                Dim cont As Integer = 1
                While File.Exists("/public_html/Imagenes_1/" & nomArchivo) = True

                    nomArchivo = nomArchivo.Replace(tipo, cont & tipo)
                    cont += 1
                End While
                FileUpload1.PostedFile.SaveAs("/public_html/Imagenes_1/" & nomArchivo)
            End If

        Else
            Label1.Text = "Tipo de archivo no permitido"
        End If

Con este codigo cuando quiero cargar/subir la imagen me da error. Si es posible me gustaria que me den alguna ayuda. Desde ya muchas gracias. Mauro