%@ LANGUAGE=VBSCRIPT %>
Files in Folder <%= Request.QueryString("folder") %>
Files in Folder <%= Request.QueryString("folder") %>
These are the files that the students should create.
<%
mypath = Request.QueryString("folder") & "\"
Set filesystem = CreateObject("Scripting.FileSystemObject")
Set folder = filesystem.GetFolder(Server.MapPath(mypath))
Set filecollection = folder.Files
For Each file in filecollection
Response.Write "- " & file.name & "
"
Next
set filesystem=nothing
set folder=nothing
set filecollection=nothing
Response.Expires=0
Response.End
%>