<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/somedirectory"))
For Each filefound In MyFiles.files
Response.Write filefound.Name
Next
%>