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