<% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objFolder Dim Path Path = Server.MapPath("\bills\2013\SB0299\") 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("

 2013 Senate Bill Text Directory (All Versions; SB0200 - SB0299)

") Set objFolder = Nothing Set objFile = Nothing Set objFSO = Nothing %>