Presentations

<% Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable strPath = "//" ' Create FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Show %>

Click a Presentation to play. Select column to sort. <% For Each objItem In objFolder.SubFolders on error resume next ' Deal with VTI's If InStr(1, objItem, "_vti", 1) = 0 Then Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if (fso.FileExists(Server.MapPath(strPath & objItem.Name & "\1.stm"))) then %> <% End If End If Next 'objItem Set objItem = Nothing %> Presentation Title Date ','vbviewer','toolbar=no, status=no, left=1,top=1,width=1024, height=620, resizable=yes')" onmouseover="thumb('<%=strPath & objItem.Name & "/s001.jpg" %>')"> ','vbviewer','toolbar=no, status=no, left=1,top=1,width=1024, height=620, resizable=yes')"> <%= objItem.Name %>  <%= objItem.DateCreated %>