Código:
Saludos<%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <%@Page aspcompat=true Language ="VB" debug ="true" %> <html> <script language="VB" runat="server"> Sub EnviaFormulario(Sender as Object, E as EventArgs) ' Definimos el archivo enviado por el formulario como Imagen Dim Imagen as System.Drawing.Image Imagen = System.Drawing.Image.FromStream(Archivo.PostedFile.InputStream) ' Definimos las dimensiones de la miniatura Dim AnchoMiniatura as Integer, AltoMiniatura as Integer AnchoMiniatura = 100 AltoMiniatura = 80 ' Definimos el nombre del archivo, y el nombre de la miniatura Dim NombreArchivo as String Dim NombreMiniatura as String NombreArchivo = right(archivo.PostedFile.filename,len(archivo.PostedFile.filename) - instrrev(archivo.PostedFile.filename,"\")) NombreMiniatura = right(archivo.PostedFile.filename,len(archivo.PostedFile.filename) - instrrev(archivo.PostedFile.filename,"\")) ' Definimos las rutas donde grabará los archivos Dim RutaArchivo as String, RutaMiniatura as String RutaArchivo = "./imagenes/" RutaMiniatura = "./imagenes/miniaturas/" ' Guardamos el archivo original en disco Imagen.Save(Server.MapPath(RutaArchivo & NombreArchivo), ImageFormat.JPEG) ' Creamos la Miniatura con las dimensiones enviadas, y la definimos como Imagen Dim Miniatura as System.Drawing.Image Miniatura = Imagen.GetThumbnailImage(AnchoMiniatura, AltoMiniatura, Nothing, New IntPtr()) ' Grabamos la Miniatura en disco con formato JPG Miniatura.Save(Server.MapPath(RutaMiniatura & NombreMiniatura), ImageFormat.JPEG) End Sub </script> <body> <form enctype="multipart/form-data" runat="server"> Imagen: <input id="Archivo" type="file" runat="server"> <br><br> <input value="Enviar" type="submit" OnServerClick="EnviaFormulario" runat="server"> </form> </body> </html>
PD: si alguien me puede decir como validar tipos de datos se lo agradeceria
