Sortere mapper efter dato

Denne burde kunne gøre det


<!-- METADATA TYPE="typelib" UUID="00000200-0000-0010-8000-00AA006D2EA4" NAME="ADO Type Library" -->
<%
Sub ListFiles(tmpPath)
  ' Opret et tomt, custom recordsæt
  Set t=Server.CreateObject("ADODB.RecordSet")
  t.CursorLocation = adUseClient
  t.LockType = adLockBatchOptimistic
  With t.Fields
    .Append "navn", adChar, 100, adFldUpdatable
  End With
  t.Open

  Set fso = Server.Createobject("scripting.filesystemobject")

  strFullPath = "c:\inetpub\wwwroot\" & tmpPath
  Set objFolder = fso.GetFolder(strFullPath)

  ' Opbygger recordsæt
    For each objfile in objfolder.files
      t.AddNew
      t("navn")= objFile.Name
      t.Update
    Next

  ' Traverserer recordsæt for at lave table rows
  Response.Write "<table class='ignis'>"
    t.MoveFirst
    ' sorteringskritere, ASC/DESC som i SQL
    t.Sort="navn ASC"
    while not(t.EOF)
      Response.Write MakeLink(t("navn"), tmpPath)
      t.MoveNext
    Wend
    t.Close
  Response.Write "</table>"
  Set objFolder = nothing
  Set t=nothing
End Sub
%>

Hmm, jeg får følgende fejl:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/fso.asp, line 9


Linje 9:  t.CursorLocation = adUseClient

Du fik fat i at det var mappe-navnene der skulle udskrives, ikke?

Nå, jeg fandt selv ud af det vha. denne løsning:

http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp

/lukker