Hej
Jag lopar igenom ett antal filnamn som listas på en sida. Problemet är att listan sorteras stigande på namnet och jag vill ha en fallande sortering. Någon som vet hur jag skall få till detta i koden nedan.

<%
'Listar alla filer i mappan nyhetsbrev
  Dim objFSO, objFile, objFolder
Set objFSO=_
  Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=_
  objFSO.GetFolder(Server.MapPath("admin/nyhetsbrev/visas_on_hemsidan"))
   Response.Write "<br>"
   Response.Write "<b>"&"Arkiv nyhetsbrev"&"<br>"&"</b>"
   Response.Write "-----------------------"&"<br>"
   For Each objFile in objFolder.Files
  Dim filext: filext = Len(objFSO.GetExtensionName(objFile.name)) + 1
  Dim fillangd: fillangd = Len(objFile.name)
'Skriver ut filnanmnen utan filändelsen
  Dim filnamn: filnamn = Left((objFile.name),fillangd-filext)
  Response.Write "<a target=I1 href=" & "admin/nyhetsbrev/visas_on_hemsidan/"&objFile.name & ">" & filnamn & "</a>"
  Response.Write "<br>"
  Next
  Set objFolder = Nothing
  Set objFSO = Nothing
  %>

Faktum är att listan inte sorteras alls. Du får filnamnen i den ordning de råkar ligga i katalogen på disken.

Du kan använda ett recordset för att sortera filnamnen:
http://guffa.com.loopiadns.com/Programming_archive.asp?id=18

Tack Göran
Det fungerar perfekt.
Glad påsk / Ted