<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Dim Path
Path = Server.MapPath("\bills\2013\HouJoint\")
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 House Joint Resolution Text Directory (All Versions)
")
For Each objFile in objFolder.Files
strFileName = objFile.Name
if strFileName ="default.asp" Then
'nothing
else
strDateCreated = objFile.DateCreated
strSize = objFile.Size
response.write("- " & strFileName & " -- Date Created " & strDateCreated & " -- Size " & strSize & " bytes.
")
end if
Next
response.write("
")
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>