<% Whichfolder=server.mappath("/stage/") &"/" Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc Response.write ("") Next %>

File Name	File Size	Date Modified
" & f1.name & "	" & FormatNumber(f1.size/1024, 0) & " Kb	" & f1.DateLastModified & "