show all files in a directory with detail

msi_333 · **Posted:** Fri Apr 08, 2011 3:13 pm

show all files in a directory with details like name,modification date , size.

Code:

<html>
<% 
    Dim strFilePath, strRelativePath, objFileSystem, objFile, objFileInstance, objFolder, objFolderFiles
    strFilePath = Request.ServerVariables("SCRIPT_NAME")
    ' get path relative to server .
    strRelativePath = Server.MapPath(strFilePath)
    ' File System Object .
    objFileSystem = CreateObject("Scripting.FileSystemObject")
    ' get file related to file path .
    objFile = objFileSystem.GetFile(strRelativePath)
    ' get the folder object instance.
    objFolder = objFile.ParentFolder
    ' get all files in folder.
    objFolderFiles = objFolder.Files
%>
<center><b>Files in directory with details</b></center>
<br/>  
<table> 
<tr> 
<th>File Name</th> 
<th>Size</th> 
<th>Date Last modified</th> 
</tr> 
<%
    'loop on file instances .
For Each objFileInstance In objFolderFiles 
        Response.Write("<tr><td><b>")
        Response.Write(objFileInstance.Name)
        Response.Write("</b></td><td>")
        Response.Write(objFileInstance.Size)
        Response.Write("</td><td>")
        Response.Write(objFileInstance.DateLastModified)
        Response.Write("</td></tr>")
Next 
%> 
</table>
</html>
 

You can also get for example the created date of a file :

Code:

<html>
<p>
<% 
    Dim objFileSystem, objFile
    objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
    objFile = objFileSystem.GetFile(Server.MapPath("test.txt"))
    Response.Write("test.txt  is created on:  " & objFile.DateCreated)
    objFile = Nothing
    objFileSystem = Nothing
%>
</p>
</html>
 

show all files in a directory with detail

Users browsing similar codes