show all files in a directory with detail

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>