Set objFso = CreateObject("Scripting.FileSystemObject")
  Set objFiles = objFso.GetFolder(Server.MapPath("."))
  Set fileList = objFiles.Files
  For Each i in fileList
  response.write i.name & "<br>"
  next