% Option Explicit Dim strDocsPath, strDocsPhysicalPath Dim objFSO, objFolder, objFiles, objFile Dim strName, strFile, strType, lngSize ' NOTE: set the following line to the folder to display strDocsPath = "clm" ' map the folder to a physical path strDocsPhysicalPath = Server.MapPath(strDocsPath) ' create a system file object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' create an object for the folder Set objFolder = objFSO.GetFolder(strDocsPhysicalPath) %>