<% strSN = request("SN") 'strBN = request("BN") 'response.write(strSN) Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objFolder Dim Path Path = Server.MapPath("\bills\2015\FNPDF\SNPDF\") Set objFolder = objFSO.GetFolder(Path) Dim objFile Dim strCountfiles strCountfiles = 0 Dim u u = 0 Dim arrAmd arrAmd = Array() For Each objFile in objFolder.Files strCountfiles = strCountfiles + 1 Next ReDim arrAmd(strCountfiles -1) ' response.write("

Directory Contents