On Error Resume Next Set fs = Server.CreateObject("Scripting.FileSystemObject") fName = Request.ServerVariables("APPL_PHYSICAL_PATH") & "/FOLDER_LOCATION/" Set folder = fs.GetFolder(fname) For each item in folder.Files Response.Write "" Next