PD: el codigo que llevo es este:
Código:
PD2: Si no es mucha molesti me podrian dar un link o explicar y no darme codigo a no ser que sea estrictamente necesario... pues quiero pensarlo yo... para aprender mas rapido.. saludos <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <%@Page aspcompat=true Language ="VB" debug ="true" %> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set mi_folder = FSO.GetFolder("C:\Felipe\Páginas web\Scripts\ASP.net\Funciones\fotos") for each item in mi_folder.Files response.write(item.name & "<br>") ' 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 NombreMiniatura as String NombreMiniatura = " & item.name & " ' Definimos las rutas donde grabará los archivos Dim RutaMiniatura as String RutaMiniatura = "./fotos/miniaturas/" ' 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) next %>