List of uploaded Files

<% ' -- show.asp -- ' Shows a list of uploaded files Response.Buffer = True Dim poolDir poolDir = "./uploads/" %> List of uploaded Files

List of uploaded Files
Close

<% ' File System Object Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") ' "Uploads" Folder Dim folder Set folder = fso.GetFolder(Server.MapPath(poolDir)) If folder.Size > 0 Then Response.Write "

" Response.Write "" Response.Write "" & file.Name & " ( Size: " & file.Size & " ) " Next Response.Write "

" Else Response.Write "

No Files Uploaded.

" End If %>