|
This example uses straight ASP
coding to accomplish the task.
Looks kind of like a table of
contents right? So why use this
method? Well, we just think it's
cooler to code it yourself!
At the top of your page, insert
the following code before the
<HTML> tag:
<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit 'Option Explicit
requires that you declare all
variables
Dim strDocsPath,
strDocsPhysicalPath
Dim objFSO, objFolder, objFiles,
objFile
Dim strName, strFile, strType,
lngSize
' NOTE: set the following line
to the folder to display
strDocsPath = "Directory" 'NOTE:
Change this setting to the
folder in your directory that
contains
'the files you want to list
' map the folder to a physical
path
strDocsPhysicalPath =
Server.MapPath(strDocsPath)
' create a system file object
Set objFSO =
Server.CreateObject("Scripting.FileSystemObject")
' create an object for the
folder
Set objFolder =
objFSO.GetFolder(strDocsPhysicalPath)
%>
Insert the following code into
the <body> of your page:
<%
' create a files collection
Set objFiles = objFolder.Files
' step through the files
collection
For Each objFile in objFiles
' get a file's name
strName = objFile.Name
' make it lowercase for the URL
strFile = Lcase(strName)
' get the file's type
strType = objFile.Type
' make the name a title for
display
strName = MakeTitle(strName)
' get the file size in KB
lngSize = objFile.Size\1024
' output the filename and URL
Response.Write "<li><a href="""
& strDocsPath & "/" & strFile &
""">" & strName & "</a><br>"
' output the file's size and
type
Response.Write "<em>(" & lngSize
& "KB " & strType &
")</em></li>" & vbCrLf
Next
' this function simply drops the
extension from a file
Function MakeTitle(strTemp)
If InStrRev(strTemp,".") Then
strTemp =
Left(strTemp,InStrRev(strTemp,".")-1)
End If
MakeTitle = strTemp
End Function
%>
|
