Aquí les paso el código de una clase que hice para subir imagenes a un servidor en formato jpg,jpeg y gif:
Imports Microsoft.VisualBasic
Public Class Upload
#Region "Variables de Clase"
Dim extensiones() As String = {"jpg", "jpeg", "gif"}
Dim tamaño As Double
Const size As Integer = 50
Public control As System.Web.UI.WebControls.FileUpload
Public user As String
Public ubicacion As String = "UplImages\"
Public extension As String
Public cuenta As String
#End Region
#Region "Metodos de Clase"
Function upload(ByVal server) As Boolean
Dim vlext As String = MyClass.obtenerExtension(control.PostedFile.FileName)
tamaño = control.PostedFile.InputStream.Length / 1000
Dim GuardarImagenEn As String
GuardarImagenEn = ubicacion & user & "." & vlext
If verificarExtension(vlext) = True And tamaño <= size Then
Try
Dim subirImagen As System.Drawing.Image
subirImagen = System.Drawing.Image.FromStream(control.PostedFile.InputStream)
subirImagen.Save(server.MapPath(GuardarImagenEn))
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
End If
End Function
Function verificarExtension(ByVal ext As String) As Boolean
Try
Dim n As Integer = MyClass.extensiones.Length - 1
Dim i As Integer
For i = 0 To n - 1
If MyClass.extensiones(i) = ext Then
Return True
End If
Next
Return False
Catch ex As Exception
End Try
End Function
Function obtenerExtension(ByVal controlText As String)
Dim ext As String
Dim parts() As String
parts = controlText.Split(".")
ext = parts(parts.Length - 1)
MyClass.extension = ext
Return ext
End Function
#End Region
End Class
