Ridimensionare una serie immagini in una directory

[haiku80]

Ciao a tutti.
Non sapendo coodificare una riga di ASP.NET, mi servirebbe un'anima buona che completasse questo script.

Sub Page_Load()
  Dim width as Integer = 94
  Dim height as Integer = 94
  Dim immagine as String = ""
  ' richiede la directory in cui sono memorizzate le immagini
  ' specificate nella querystring "dir" ...
  Dim dir as String = Request.QueryString("dir")
	
  ' Per ogni immagine presente nella directory
  For .....
    'salva il percorso dell'immagine
    immagine = ..... ' tipo C:\diretory\foto.jpg
		
    ' Ridimensiona l'immagine
    Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)
    Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
		
    ' Salva la miniatura con la giusta estensione
    if immagine.EndsWith(".jpg") Then
      miniaturabmp.Save(left(immagine, len(immagine)-4) & "_tn.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    else
      miniaturabmp.Save(left(immagine, len(immagine)-4) & "_tn.gif", System.Drawing.Imaging.ImageFormat.Gif)
    End if 
		
    ' pulizia 
    miniaturabmp.Dispose()			
    bmp.Dispose()
  Next
	
  ' Finito il lavoro, proseguo
   response.redirect("mia_pagina.asp")
End Sub

Grazie mille.

[kluster]

nella cartella ci sono solo immagini?

puoi usare

For each fileName as String  in  System.IO.Directory.GetFiles(Server.MapPath(TUA_DIR))

oppure , dipende dalla versione che hai prima dichiari

dim fileName as string
For each fileName in System.IO.Directory.GetFiles(Server.MapPath(TUA_DIR))
...
'se non vuoi modificare il resto dello script
immagine = filename 
' altrimenti utilizza direttamente la variabile filename

[haiku80]

FUNZIONA!

grazie mille.

[kluster]

Ma prego,