VBrick Multimedia

VBrick Multimedia

<% Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable strPath = "/eecs823/" ' Create FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get a handle on our folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Show a description line and the title row of our table %>

<% For Each objItem In objFolder.SubFolders on error resume next ' Deal with the VTI's that keep giving visitors 404'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 ' Kill off our object variables. Set objItem = Nothing %>
Presentation (Click To View) Date Uploaded:
','viewer','toolbar=no, status=no, width=1024, height=525, resizable=yes')"><%= objItem.Name %> <%= objItem.DateCreated %>