<% Function FileSelect( strPhysicalPath, strFileExtension, strSelectOptions, strOptionOptions ) Dim strReturnSelect Dim objFSO, objFile, objFileItem, objFolder, objFolderContents Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files Dim strFullFileName, strExt, strFileName strReturnSelect = "" & vbCRLF For Each objFileItem In objFolderContents strFullFileName = objFileItem.Name strExt = LCase(Right(strFullFileName,4)) strFileName = Left(strFullFileName, Len(strFullFileName)-4) If strExt = strFileExtension Then strReturnSelect = strReturnSelect &_ "" & strFileName & "" & vbCRLF End If Next strReturnSelect = strReturnSelect & "" FileSelect = strReturnSelect End Function %> <% Dim strPhysicalPath, strSelect strPhysicalPath = "E:\GeneralAccounts\zacharytaylorpar\htdocs\PDF\AssocMinutes" %> strPhysicalPath = <%= strPhysicalPath %>

Directory Contents:

<%=FileSelect(strPhysicalPath,".pdf",null,null)%>