Asp > Code Snippets

This shows how to display the contents of a directory that the script is in

This shows how to display the contents of a directory that the script is in

<p align="left"><b>Directory details</b></p> 
<br> 
<% 
Dim strPath , strPhysical 
strPath = Request.ServerVariables("SCRIPT_NAME") 
strPhysical = Server.MapPath(strPath) 
Dim objFSO , objFile , objFileItem , objFolder , objFolderFiles 
' create an instance of the FileSystemObject 
set objFSO = CreateObject("Scripting.FileSystemObject") 
' get a file object that corresponds to the file that we have the path for 
set objFile = objFSO.GetFile(strPhysical) 
'return a reference to a folder object that represents the folder the file resides in 
set objFolder = objFile.ParentFolder 
set objFolderFiles = objFolder.Files 
%> 
<TABLE CELLPADDING = 3 CELLSPACING = 2> 
<TR> 
<TH>File Name</TH> 
<TH>File Size</TH> 
<TH>Last modified</TH> 
</TR> 
<% 
For Each objFileItem In objFolderFiles 
Response.Write "<TR><TD>" 
Response.Write objFileItem.Name 
Response.Write "</TD><TD>" 
Response.Write objFileItem.Size 
Response.Write "</TD><TD>" 
Response.Write objFileItem.DateLastModified 
Response.Write "</TD></TR>" 
Next 
%> 
</TABLE>