My file archive:
File Name<%
' Create an instance of the FileSystemObject
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
' Create Folder Object
Set MyFolder=MyFileObject.GetFolder(Server.MapPath("shared"))
'Loop trough the files in the folder %>
<%FOR EACH thing in MyFolder.Files%>
<%=thing.Name%>
<%NEXT%>
مع خالص تحياتي