Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
Dim strPath 'Path of directory to show
Dim objFSO
Dim objFolder
Dim objItem
strPath="./"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
response.write "<TABLE>" &_
"<tr><TD>Description</td>" &_
"<TD>Size</TD>" &_
"<TD>Date</TD></TR>"
For Each objItem In objFolder.Files
response.write "<tr><TD><A HREF=""" &_
strPath & objItem.Name &_
""">" & objItem.Name & "</A></TD>" &_
"<TD>" & objItem.Size & "</TD>" &_
"<TD>"& objItem.DateCreated & "</TD></TR>"
Next
response.write "</TABLE>"
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>