<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "./"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
/Music/*.*
File Name:
File Size (bytes):
Date Created:
File Type:
<%
For Each objItem In objFolder.Files
dim i
if objItem.Name <> "musicwatch.asp" then
if i = 0 then
%>
<%= objItem.Name %>
<%= objItem.Size %>
<%= objItem.DateCreated %>
<%= objItem.Type %>
<%
else
%>
<%= objItem.Name %>
<%= objItem.Size %>
<%= objItem.DateCreated %>
<%= objItem.Type %>
<%
end if
end if
i = i +1
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>