cosi richiamo le cartelle

<%
path = Server.MapPath("/")
Set FSO = Server.CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder(path)
Set Subfolder = Folder.SubFolders
For Each Cartella In Subfolder
Response.Write Cartella.Name & "
"
Next
Set Subfolder = Nothing
Set Folder = Nothing
Set FSO = Nothing
%>

cosi richiamo i file e sono cliccabili
<%
dir="/gallery"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("gallery"))
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='gallery/"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next
%>