ASP: Udskriv en sorteret list af filer i en mappe vha. FSO

Ja man er nod til at lave et array, det kan man ikke direkte det skal man kode sig ud af, her er et eks på sådan en kode:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

Eller dette eks som bruger et recordset og sortere på den måde:


<%
Dim objFSO, objFolder, objRS, Path, subPath

subPath = "test"
Path = Server.MapPath("/"&subPath)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)
Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Fields.Append "Name", adVarChar, 20
objRS.Fields.Append "Size", adInteger, 6
objRS.Fields.Append "DateLastmodified", adDate, 9
objRS.Open

For Each file in objFolder.Files
objRS.Addnew
objRS("Name") = file.Name
objRS("Size") = file.Size
objRS("DateLastmodified") = file.DateLastModified
objRS.Update 
Next

Function Pad (str, numChars)
  str = str & Space(numChars)
  Pad = Left(str, numChars)
End Function

objRS.Sort = "Name ASC, Size, DateLastmodified"
' Displays the recordset
s = ""
objRS.MoveFirst
while Not objRS.EOF
  for each fld in objRS.Fields
      s = s &"<td>"& Pad(objRS.Fields(fld.Name), 18)&"</td>"
  next
  s = s & "</tr>"
  objRS.MoveNext
wend

Response.Write s

%>

Og så bare ændre sort til fx
objRS.Sort = "DateLastmodified DESC, Name, Size"

;-)

Ja det kan du bytte rundt som du selv vil.

Tak skal du ha' - Havde dog håbet der var en lettere løsning som kunne klares på blot et par enkelte liniers kode.