Minutes and Agenda Files

<% Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath("minutes_agenda/")) ' Lists all the files found in the directory For each directoryfile in allFiles.subfolders %> <% ' Removes certain MSFrontPage was directories if right(directoryfile.Name,3) <> "cnf" then %> <% =directoryfile.Name %>
<% end if %> <% Next %>
<%'If no files show message saying so If (allFiles.files.count) = 0 Then Response.Write ("Sorry, No Files Here.") else Response.Write ("") end If %>
<% ' Lists all the files found in the directory For each directoryfile in allFiles.files %> <% =directoryfile.Name %>
<% Next %>