You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.0 KiB
Plaintext
33 lines
1.0 KiB
Plaintext
<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> |