Código:
response.write "<table width=""100%"" align=center><tr>"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("AQUÍ_TU_PATH"))
j = 1
For Each objFile In objFolder.Files
pathFile = "TU_PATH"&replace(replace(objFile, objFolder, ""), "\", "/")
response.write "<td width=100 vAlign=center align=middle>"
response.write pathFile
response.write "</td>"
If j Mod 3 = 0 Then response.write "</tr><tr>"
j = j + 1
Next
response.write "</tr></table>"
Set objFolder = Nothing
Set objFSO = Nothing
COn eso muestras el PATH de los archivos que haya en la carpeta especificada. Si solo quieres mostrar el nombre, trabaja con las funciones len, replace, left, etc. y listo :P