Subfolders auflisten und dabei absteigend alphabetisch sortieren

[Hoscha]

Hallo zusammen,

momentan habe ich ein Skript geschrieben, dass mir mit dem nachfolgenden Code alle Unterordner auflistet:

Folder = Server.MapPath("documents")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(Folder)
  Set sf = f.SubFolders   'subfolders are determined

For Each f1 in sf   'for each element in group
  link = f1.name
  response.write (link)
next

Wie kann ich es erreichen, dass diese Unterordner, nicht wie unter Windows üblich, aufsteigend, sondern absteigend alphabetisch sortiert werden?

Vielen Dank,
Hoscha