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 fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder("\\servername\inetpub\[URL unfurl="true"]wwwroot\myfolder\images\")[/URL]
Dim files
Set files = rootFolder.Files
For Each file in files
If file.Type <> "GIF Image" AND file.type <> "JPG Image" Then
Response.Write "FileName: " & file.Name & "<br>"
End If
Response.Write UCase(file.Type)
' Response.Write "Attributes: " & file.Attributes & "<br>"
' Response.Write "Type: " & file.Type & "<br>"
' Response.Write "Size: " & file.Size & "<br>"
' Response.Write "ShortName: " & file.ShortName & "<br>"
Next
Set files = Nothing
Set rootFolder = Nothing
Set fso = Nothing
%>