ASP Full Directory Structure

ASP Free Forums Sponsor:

March 1st, 2006, 12:40 AM

shamrog12

Newton's Apple Wizard

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Nov 2003

Location: Los Angeles

Posts: 1,661

Time spent in forums: 3 Weeks 2 Days 2 h 39 m 22 sec
Reputation Power: 34

ASP Full Directory Structure

I think I posted a small example of displaying the content of a particular folder before. This one still display your entire folder/file hierarchy. It's from brainjar.

ASP Code:

Original - ASP Code

<%@ LANGUAGE="VBScript" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<% '*************************************************  **************************
   '* ASP Directory Listing                                                   *
   '*                                                                         *
   '* Do not remove this notice.                                              *
   '*                                                                         *
   '* Copyright 1999, 2000 by Mike Hall.                                      *
   '* Please see http://www.brainjar.com for documentation and terms of use.  *
   '*************************************************  **************************
%>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP Directory Listing Demo</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<link rel="stylesheet" type="text/css" href="/common/default.css" />
</head>
<body>

<h3>ASP Directory Listing Demo</h3>

<p>Three separate directories from the web server root are displayed below
("asp", "dhtml" and "js"), showing all subdirectories and files. Additionally,
each file is displayed as a link.</p>

</div>

<ul>
<% ListFolderContents(Server.MapPath("/")) %>
</ul>

</body>
</html>

<% sub ListFolderContents(path)

dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
     set folder = fs.GetFolder(path)

'Display the target folder and info.

Response.Write("<li><b>" & folder.Name & "</b> - " _
       & folder.Files.Count & " files, ")
     if folder.SubFolders.Count > 0 then
       Response.Write(folder.SubFolders.Count & " directories, ")
     end if
     Response.Write(Round(folder.Size / 1024) & " KB total." _
       & vbCrLf)

Response.Write("<ul>" & vbCrLf)

'Display a list of sub folders.

for each item in folder.SubFolders
       ListFolderContents(item.Path)
     next

'Display a list of files.

for each item in folder.Files
       url = MapURL(item.path)
       Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
         & item.Size & " bytes, " _
         & "last modified on " & item.DateLastModified & "." _
         & "</li>" & vbCrLf)
     next

Response.Write("</ul>" & vbCrLf)

Response.Write("</li>" & vbCrLf)

end sub

function MapURL(path)

dim rootPath, url

'Convert a physical file path to a URL for hypertext links.

rootPath = Server.MapPath("/")
     url = Right(path, Len(path) - Len(rootPath))
     MapURL = Replace(url, "\", "/")

end function %>

<%@ LANGUAGE="VBScript" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<% '*************************************************  **************************
   '* ASP Directory Listing                                                   *
   '*                                                                         *
   '* Do not remove this notice.                                              *
   '*                                                                         *
   '* Copyright 1999, 2000 by Mike Hall.                                      *
   '* Please see http://www.brainjar.com for documentation and terms of use.  *
   '*************************************************  **************************
%>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP Directory Listing Demo</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<link rel="stylesheet" type="text/css" href="/common/default.css" />
</head>
<body>
 
<div id="demoBox">
 
<h3>ASP Directory Listing Demo</h3>
 
<p>Three separate directories from the web server root are displayed below
("asp", "dhtml" and "js"), showing all subdirectories and files. Additionally,
each file is displayed as a link.</p>
 
</div>
 
<!-- List these three folders. -->
<ul>
<% ListFolderContents(Server.MapPath("/")) %>
</ul>
 
</body>
</html>
 
<% sub ListFolderContents(path)
 
     dim fs, folder, file, item, url
 
     set fs = CreateObject("Scripting.FileSystemObject")
     set folder = fs.GetFolder(path)
 
    'Display the target folder and info.
 
     Response.Write("<li><b>" & folder.Name & "</b> - " _
       & folder.Files.Count & " files, ")
     if folder.SubFolders.Count > 0 then
       Response.Write(folder.SubFolders.Count & " directories, ")
     end if
     Response.Write(Round(folder.Size / 1024) & " KB total." _
       & vbCrLf)
 
     Response.Write("<ul>" & vbCrLf)
 
     'Display a list of sub folders.
 
     for each item in folder.SubFolders
       ListFolderContents(item.Path)
     next
 
     'Display a list of files.
 
     for each item in folder.Files
       url = MapURL(item.path)
       Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
         & item.Size & " bytes, " _
         & "last modified on " & item.DateLastModified & "." _
         & "</li>" & vbCrLf)
     next
 
     Response.Write("</ul>" & vbCrLf)
 
     Response.Write("</li>" & vbCrLf)
 
   end sub
 
   function MapURL(path)
 
     dim rootPath, url
 
     'Convert a physical file path to a URL for hypertext links.
 
     rootPath = Server.MapPath("/")
     url = Right(path, Len(path) - Len(rootPath))
     MapURL = Replace(url, "\", "/")
   end function %>

__________________
If you found a post of mine helpful, please click on the on my post to add to my reputation.

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: