Although most Web servers give you the option of allowing users to view the list of files in a Web site directory, you may not want to show some types of files. Also, you may want to present the list of files in attractive table. The following code, written for Internet Information Server with Active Server Pages (ASP), displays all of the GIF files in the directory C:inetpubwwwrootwork. It also shows the size of the file, the type, the date that it was last accessed, and when it was last modified. Update the variables called thepath and thefile to reflect your Web’s path and the type of file that you want to display.
<%@ Language=VBScript %>
<%dim thepath, thefilethepath="c:inetpubwwwrootwork"thefile=".gif"Set fs = CreateObject("Scripting.FileSystemObject")Call ShowFolderList(thepath)Set fs=NothingSub ShowFolderList(folderspec)On error resume nextSet f = fs.GetFolder(folderspec)Set fc = f.Files For Each f1 in fcIf instr(1,ucase(f1.name),ucase(thefile)) ThenResponse.Write " File Size Type Accessed Modified "Response.Write "" End IfNextEnd Sub%> " & f1.name & ""Response.Write " " & f1.size & ""Response.Write " " & f1.type & ""Response.Write " " & f1.DateLastAccessed & ""Response.Write " " & f1.DateLastModified & ""Response.Write "