Recipes

<% sub displayFolder() dim fso,folders,folder,files,item,basename,ext set fso = Server.CreateObject("Scripting.FileSystemObject") set folder = fso.GetFolder(Server.MapPath(".")) set files = folder.Files set folders = folder.SubFolders for each item in files ext = split(item.name,".")(1) basename = split(item.name,".")(0) if basename <> "default" and left(basename,1) <> "_" then response.write indent & "
• " & Server.HTMLEncode(basename) & "
" & vbCRLF end if next end sub displayFolder %>