'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\")
If filename <> "default.asp" then
Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename & "</A><BR>"
End if
Next
%>
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.