Sortere efter alfabet

Det kan man ikke direkte med FSO. Så man er nød til enten at lave et array og sortere det eller benytte et recordset og sortere det:

Eks med Array:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118


Eks med recordset:

<%
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

%>

Jeg takker for den hurtig besvarelse, beklager jeg var så længe om komme ind på eksperten igen - beklager