here is code I have to read a folders contents
DougP, MCP, A+
Code:
<%
Response.Write "Welcome " & session("company")
Dim strPath 'Path of directory to show
Dim objFSO
Dim objFolder
Dim objItem
Dim strCurrentPage
strPath="./"
strCurrentPage = session("folder") & ".asp"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
response.write "<TABLE>" &_
"<tr><TD>Description</td>" &_
"<TD>Size</TD>" &_
"<TD>Date</TD></TR>"
For Each objItem In objFolder.Files
if objItem.Name = strCurrentPage then
'don't add to list
else
response.write "<tr><TD><A HREF=""" &_
strPath & objItem.Name &_
""">" & objItem.Name & "</A></TD>" &_
"<TD>" & objItem.Size & "</TD>" &_
"<TD>"& objItem.DateCreated & "</TD></TR>"
end if
Next
response.write "</TABLE>"
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
DougP, MCP, A+