<HTML>
<HEAD>
<TITLE>FileSystemObject Classic ASP</TITLE>
</HEAD>
<BODY>
<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
set objFolderContents = objFolder.Files
%>
<TABLE cellpadding=5>
<TR align=center>
<TH align=left>File Name</TH>
<TH>Type</TH>
<TH>File Size</TH>
<TH>Last Modified</TH>
</TR>
<%
For Each objFileItem in objFolderContents
%>
<TR>
<TD align=left>
<A HREF:"<%= objFileItem.Name %>"><FONT FACE="Verdana" SIZE="3">
<%= objFileItem.Name %></A></FONT>
</TD>
<TD align=right>
<FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
<%= objFileItem.type %>
</FONT>
</TD>
<TD align=right>
<FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
<%= objFileItem.size %>
</FONT>
</TD>
<TD align=right>
<FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
<%= objFileItem.DateLastModified %>
</FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
<HR>
</BODY>
</HTML>