<% @ LANGUAGE=VBSCRIPT %> <% Option Explicit Response.Expires = -1000 Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const adVarChar = 200, adOpenDynamic = 2, adFldUpdatable = &H00000004, adInteger = 3, adDate = 7 Dim f, fso, path, fldr, fldrs, thisfldr, fls, rs, count, i, orderby, passwd, showOK orderby = Request.querystring("OrderBy") If orderby = "" Then orderby = "FileName" Set rs = Server.CreateObject("ADODB.Recordset") rs.Fields.Append "FileName", adVarChar, 100, adFldUpdatable rs.Fields.Append "FileType", adVarChar, 40, adFldUpdatable rs.Fields.Append "FileSize", adInteger, 40, adFldUpdatable rs.Fields.Append "LastMod", adDate, 40, adFldUpdatable rs.Open , , adOpenDynamic path = Request.Servervariables("PATH_TRANSLATED") path = StrReverse(path) path = Mid(path,InStr(path,"\"),Len(path)) path = StrReverse(path) Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.getFolder(path) Set fldrs = fldr.subFolders For each thisfldr in fldrs rs.AddNew rs("FileName") = thisfldr.Name rs("FileType") = thisfldr.Type rs("FileSize") = thisfldr.Size rs("LastMod") = thisfldr.DateLastModified rs.Update Next 'thisfldr Set fls = fldr.Files For each f in fls rs.AddNew rs("FileName") = f.Name rs("FileType") = f.Type rs("FileSize") = f.Size rs("LastMod") = f.DateLastModified rs.Update Next 'f Select Case orderby Case "FileName" rs.Sort = "FileName" Case "FileType" rs.Sort = "FileType" Case "FileSize" rs.Sort = "FileSize" Case "LastMod" rs.Sort = "LastMod" Case Else rs.Sort = "FileName" End Select rs.MoveFirst %>