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
%>

