Pietro, grazie per la tua disponibilità e per l'aiuto che mi hai dato.
Col tuo ultimo suggerimento sono riuscito proprio adesso a far funzionare il tutto.

Posto gli script.

Nel file che fa l'upload e l'unzip, c'è un Server.Transfer("thumbs.aspx") che mi porta a questo file:
codice:
<%@ Page Language="VB" Trace="false" Debug="true" %>

<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

Me.Session("directoryInput") = server.mappath("/public/temp/unzip")
Me.Session("directoryOutput") = server.mappath("/public/temp/thumbs")
Me.Session("dimMax") = 180

Server.Transfer("thumbs1.aspx")
End Sub
</script>
Questo file porta a thumbs1.aspx:
codice:
<%@ Page Language="VB" %>

<%@ Import Namespace="g=gdi.img" %>
<%@ Import Namespace="System.IO" %>

<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

Dim directoryInput As String = TryCast(Me.Session("directoryInput"), String)
Dim directoryOutput As String = TryCast(Me.Session("directoryOutput"), String)
Dim dimMax As Integer = CInt(Me.Session("dimMax"))


If directoryInput IsNot Nothing AndAlso directoryOutput IsNot Nothing AndAlso dimMax > 0 Then
creaMiniature(directoryInput, directoryOutput, dimMax )
End If

Me.Response.Redirect("scegli_galleria.asp")

End Sub

Protected Sub creaMiniature(ByVal directoryInput As String, ByVal directoryOutput As String, ByVal dimMax As Integer)
Dim files As String() = Directory.GetFiles(directoryInput, "*.jpg")

For i As Integer = 0 To files.Length - 1
g.ImgResizeAndSaveToFile(files(i), dimMax, Path.Combine(directoryOutput, Path.GetFileName(files(i))))
Next

End Sub
</script>
Anche se la soluzione che ho usato (grazie al tuo aiuto) funziona, posta pure la prova che hai fatto. Mi interessa sicuramente!

Grazie ancora!