cosi le directory:
codice:
<% 
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 "<A HREF='/" 
response.write Cartella.Name 
response.write "'>" 
Response.Write Cartella.Name & "
" 
Next 
Set Subfolder = Nothing 
Set Folder = Nothing 
Set FSO = Nothing 
%>
cosi i file:
codice:
<% 
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 
%>