Subir imagen

[mau_87lp]

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

[mdavila]

Que error te da?

Seguramente es falta de permisos en la carpeta destino para tus archivos.
Fijate que el usuario IIS_IUSRS tiene que tener permisos de escritura en dicha carpeta ok.
Saludos.

[mau_87lp]

Gracias mdavila. Hice lo que me dijiste pero tambian modifique la siguiente linea.

FileUpload1.SaveAs(Server.MapPath("/public_html/Imagenes_1/" & nomArchivo))

Con esto pude subir el archivo. Muchas gracias