ho risolto
ho fatto così:
codice:
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath("public\"))
response.write "Lista Album di "&server.mappath("public\")&""
 
' Se volete visualizzare i files mettete
' For Each objItem In cartella.files

cont=0
 response.write "<table border=1><tr>"
For Each objItem In cartella.SubFolders
if (cont mod 4)=0 then
response.write "</tr><tr>"
end if 

response.write "<td valign=top align=center><a href='public/"&objItem.name&"'><img src=img/cartella.png width=150 border=0 />
"&objItem.Name&"
Dimensioni: "& objItem.Size & "Bytes""</a></td>"


cont=cont+1
Next
response.write "</tr><table>"