Ch. 10 Directory listing

superkooi · December 28th, 2004, 04:17 AM

Hello everyone. I took the code for directory listing in chapter 10

I have this code
<HTML>
<HEAD>
<TITLE>AM Signalen</TITLE>
</HEAD>
<BODY>

<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>

<TABLE cellpadding=5>
<TR align=center>
<TH align=left>File Name</TH>
<TH>Type</TH>
<TH>File Size</TH>
<TH>Last Modified</TH>
</TR>

<%
For Each objFileItem in objFolderContents
%>

    <TR>
     <TD align=left>
     <A HREF="<%= objFileItem.Name %>">
     <%= objFileItem.Name %>
     </A>
     </TD>
     <TD align=right>
     <%= objFileItem.type %>
     </TD>
     <TD align=right>
     <%= objFileItem.size %>
     </TD>
     <TD align=right>
     <%= objFileItem.DateLastModified %>
     </TD>
    </TR>

<%
Next
%>

</TABLE>
</BODY>
</HTML>

But it shows the files in the directory this file resides. I included 3 files (upper config.asp & inc_header, down inc_footer.asp) to give this page my own look and feel. Therefore i need the code to place in my /forum directory. This code shown above gives me a directory listing of that directory. How can ik rewrite my code so the codefile is in the /forum directory but i can point to another directory to show files, for example http://www.mixz.local/amsignals

Thanx in advance

hobgoblin · March 3rd, 2005, 07:39 AM

Hi,

I'm a beginner, here, too.

However, I have a similar problem to yours, and have solved part of it.

In order to make the script list the contents of a different directory than the one it lives in, you need to change the value of the strPhysicalPath variable...

I just directly set mine to the directory concerned like this:

strPhysicalPath = Server.MapPath("../../test/dummy.asp")

and put a dummy ASP file into the relevant directory.

Running the script from it's own resting place (<root_directory>/scripts/wroxbook/) it correctly displays the content of the directory: <root_directory>/test/

What I can't figure out is how to make the displayed links fetch the right pages (from the <root_directory>/test/ directory), rather than returning a 404 error (because it seems to be trying to fetch them from the <root_directory>/scripts/wroxbook/ directory)...

Any suggestions welcome.

WBW

H.